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COURTE PRÉFACE 


Votre AMSTRAD sait aussi faire autre chose que de ‘‘lasériser'’ des 
extra-terrestres ; il sait se rendre utile pour résoudre vos petits problè- 
mes, ou écourter de façon spectactulaire des besognes courantes et 
fastidieuses. Reste la question du logiciel : ceux du commerce sont sou- 
vent très difficiles à adapter à votre besoin précis, voire inexistants. 
Il faut le programmer soi-même. 


Ce livre veut être un utilitaire pour faire des utilitaires ; il contient davan- 
tage de méthodes, d'astuces, de mises en garde, que de logiciels genre 
!’PRET-A-LOADER'". En revanche, beaucoup de routines courtes et 
passe-partout d'usage fréquent et des programmes plus longs mais 
conçus pour être modifiés en fonction des besoins. 

À l'exception d'un seul, tous nos programmes sont en Basic, donc à 
la portée de tous. 


Chapitre | 


DES PRÉLIMINAIRES IMPORTANTS 


Afin que vous puissiez bien tirer parti de ce livre, il est indispensable 
que nous définissions ce que seront la forme et le fond ; non seule- 
ment sur le plan général mais aussi concernant des points de détail très 
précis. 


À QUI, CE LIVRE S'ADRESSE-T-IL ? 


À ceux que l’on appelle des amateurs, c'est-à-dire des personnes 
considérant la micro-informatique comme un jeu intellectuel ; ce qui 
n'exclut pas des prolongements vers la vie professionnelle. Très nom- 
breux sont les travailleurs indépendants qui, après avoir eu le virus de 
la micro, se sont informatisés tout seuls avec leurs propres logiciels. 
Nombreux aussi ceux qui ont quitté leur ancien métier pour devenir infor- 
maticien à part entière. Ce dernier cas est celui de l’auteur. Voilà qui 
devrait vous rassurer : être clair et efficace sont les deux impératifs. 


Les acheteurs de micro-ordinateurs se divisent en gros en trois catégo- 
ries : ceux que seuls les jeux du commerce intéressent. Ceux qui ont 
besoin d'un micro dans un but professionnel et qui utilisent pour cela 
des logiciels ‘tous faits'” (traitement de texte, comptabilité, etc.). Enfin, 
les créatifs, les chercheurs, ceux qui aiment construire un programme 
qui matérialise une idée, c'est-à-dire vous (sinon vous n'auriez pas 
acheté ce livre... ). 

L'auteur sait donc qu'il s'adresse à des ‘’mordus'’, mais que certains 
d'entre vous sont encore un peu débutants, tandis que d’autres sont 
incollables sur les fonctions Basic de l'AMSTRAD. Comment concilier 
des niveaux si différents ? Les ‘’forts'’ pardonneront quelques rappels 
de choses qu'ils savaient déjà, alors que pour les ‘‘faibles’’, nous ferons 
parfois référence à un ouvrage du même auteur ‘'MIEUX PROGRAM- 
MER SUR AMSTRAD"" (Editions SORACOM), qui est, en quelque sorte, 
la suite pratique du manuel d'origine. Ce sera de la forme ‘‘(voir MPSA 
p 117)". 


QUELS UTILITAIRES ? 


Ce mot désigne en fait trois choses différentes : 

1) La petite routine qui trouve donc sa place dans trois programmes 
sur cinq. C'est généralement un sous-programme appelé par GOSUB. 
C'est une routine dite standard. 

2) Le programme de un ou dix kilo-octets, bien indépendant et faisant 
une tâche bien précise. || est généralement ‘‘truffé’" de routines 
standard. 

3) Le même que précédemment, mais en logiciels du commerce : il y 
a ceux qu'il vaut mieux acheter, comme les traitements de texte 
(AMLETTRE, TEXTOMAT, etc.) ou les tableurs (MASTER CALC, 
MULTIPLAN, etc.), et ceux qu'il vaut mieux faire soi-même, parce 
que le ‘’sur-mesures'" va ridiculiser en performances le logiciel ‘’en 
confection'’. Le cas typique est celui des gestions de fichiers. 


Cela tombe bien puisqu'un sondage récent a montré que la grande majo- 
rité des utilisateurs d' AMSTRAD était surtout intéressée par la gestion 
de fichiers ! 


ALORS, QU'ALLONS-NOUS TROUVER DANS CE LIVRE ? 


Beaucoup de routines, peu de programmes complets (ils seront relati- 
vement courts), mais en revanche beaucoup de ‘marches à suivre” 
avec exemples, pour que vous construüisiez votre programme à l’aide 
de ces routines ; routines que vous devrez parfois modifier (elles sont 
expliquées). 

En effet, il serait malhonnèête de la part de l’auteur de publier un listing 
de vingt pages qui aurait peu de chances de vous convenir parfaite- 
ment. Mieux vaut vous livrer les pièces détachées et vous apprendre 
à les assembler, dans le but d'obtenir un logiciel correspondant à vos 
besoins personnels et précis. En informatique, comme dans le bâtiment, 
c'est souvent plus rapide de faire du neuf que de retaper du vieux. 
Tous les listings présentés ont été sé/ectionnés parmi ceux que l'au- 
teur réutilise plusieurs fois par an. Donc, il est à peu près certain que 
vous aurez l'usage de chacun d'entre eux. 

Pour plus de clarté, nous avons réparti nos chapitres en quatre 
domaines : 


1) Les utilitaires de programmation. Donc tout ce qui touche à l'écri- 
ture en général. 

2) Les utilitaires graphiques : tracés de courbes, diagrammes, axes, etc. 

3) La gestion de fichiers. Peu comparable avec les logiciels du 
commerce ; plus courts et bien plus performants. Nous verrons 
pourquoi. 

4) Les utilitaires pour imprimante. Copie d'écran, édition de tableaux, 
d'étiquettes, etc. 


Certes, ce n’est pas complet. Il n’y a pas de programmes utilitaires pour 
la musique et pas grand chose en langage machine. Il fallait faire des 
choix en fonction des demandes prioritaires. 

Et le style ? Essayons d'être clairs pour être compris, donc sans entrer 
dans des détails peu utiles à connaître. Ce n’est surtout pas un ‘‘livre 
d'école’, on est en loisir-détente. 


QUELQUES PETITES NORMES 


Les listings 


Is sont imprimés en 40 caractères par ligne, exactement comme à 
l'écran après avoir fait LIST. Le but est de vous fournir des repères afin 
de dénicher une faute de frappe. 
En général, nos programmes commencent en ligne 10, mais certains 
entre 50000 et 65000 : ce sont des routines utilitaires terminées tou- 
jours par un RETURN. Elles seront sauvegardées sur une disquette ou 
cassette à part, nommée ‘‘UTIL'" d'où elles seront rappelées par MERGE 
pour être logées dans le programme en cours d'écriture. 
ATTENTION ! pour les CPC 464, ces routines Basic seront enregistrées 
en ASCII. Exemple : 

SAVE'MENU'',A 


sinon le risque est grand d'avoir un ‘‘’EOF met’ au cours du 
MERGE'MENU"" ; et perte du programme en RAM ! Ce bug du 464 
a été supprimé dans les 664 et 6128. 


Les erreurs 

Les programmes publiés sont comme on dit ‘’éprouvés'’ et ont été lis- 

tés sur l'imprimante de l’auteur (EPSON RX80). Seuls risques : des man- 

ques ou taches d'encrage lors de l'impression du livre. 

Le courrier des lecteurs de la revue ‘’CPC'" nous a montré les classi- 

ques fautes de frappe qui font dire ‘‘le programme ne fonctionne pas’ : 

— Confusion des lettres |, | minuscule, chiffre 1 et barre verticale (SHIFT 
+ a commercial). 

— Confusion du ‘’O'' et du zéro. 

— Confusion de ponctuations : point-virgule et deux points où point 
et virgule. 

— Oubli ou ajout d'un blanc (espace). Le plus classique étant le symbole 
de ‘Chaîne vide'’ : deux guillemets consécutifs et non pas guille- 
met, blanc, guillemet.… 

— Ecriture du programme en fonction AUTO, sans remarquer que l'au- 
teur fait souvent des sauts de numérotation à des mutliples de 100 
ou de 1000, pour la clarté du listing ; et en recopiant scrupuleuse- 
ment le contenu des lignes, comme un ‘’GOTO 350’, ce qui peut 
alors avoir des conséquences imprévues.…. 

Ce recueil d'étourderies constitue les 90 % des ‘‘programmes qui ne 

marchent pas'”’. (Pour ‘‘débuguer'’ un programme, voir MPSA p 101 

à 106.) 


Quels micros AMSTRAD ? 


L'auteur utilisant un CPC 464 couleur équipé d'un lecteur de disquet- 
tes DDI-1, il n'y a aucun problème de compatibilité avec les modèles 
664 et 6128. D'autre part, nous avons vérifié la compatibilité avec le 
CPC 464 possédant uniquement le lecteur de cassettes (sauf excep- 
tions signalées à l'avance). 

En revanche, nous serons moins sûrs de nous en ce qui concerne les 
écrans monochromes : en retapant les listings, méfiez-vous des PAPER 
et PEN 2 ou 3 et des changements d'INK. Mais c'est là un genre de 
problème dont vous devez déjà être coutumier. 


Quelle imprimante ? 

Il y a, disons plutôt il y a eu, la DMP-1 et les ‘‘autres'’. Ces autres ont 
des codes de commandes conformes au ‘’standard EPSON'", à de très 
rares exceptions près. La DMP-1 (ou son homologue SEIKOSHA) a très 
peu de codes et ils ne sont pas standard. Si, dans un listing, il y a 
PRINT # 8,A$ pas de problème avec la DMP-1, mais à partir du moment 
où l’on sort de l'ordinaire avec des CHR$(27), cela ne marchera qu'avec 
les modèles standard (DMP 2000, STAR, EPSON, OKI, CENTRONIC, 
etc.). 

Si vous possédez une imprimante non-standard, vous ne serez pas lésé, 
car il vous suffira de traduire nos codes. Pour cela, la routine 59000 
du chapitre Il sera pleine d'enseignements pour les commandes cou- 
rantes. Pour les codes plus spéciaux, nous indiquerons toujours leurs 
effets, afin que vous puissiez trouver l'équivalent dans le manuel de 
votre imprimante. 


Ce qui fait la force des AMSTRAD CPC, outre le rapport performan- 
ces/prix, est le respect généralisé des divers standards : le Basic, le DOS 
CPM, le clavier, le magnétophone et l'écran de 25 lignes en 40 ou 80 
caractères. || doit en être de même pour l'imprimante. En espérant que 
la disquette trois pouces devienne un standard car elle est bien plus 
pratique que les 5 pouces 1/4 ou les 3 pouces 1/2. 


Nos programmes ‘’complets'" 


Ils sont destinés à vos coups de ciseaux, soit pour en prélever la partie 
qui vous intéresse en y modifiant quelques lignes, soit, au contraire, 
pour les grossir. Si le but de l'auteur avait été de livrer des gros pro- 
grammes utilitaires d'au moins 10 Ko chacun, il n'aurait pas choisi le 
livre mais la cassette ou disquette. 

Si ce n'est déjà fait, il est absolument obligatoire de vous familiariser 
avec les commandes Basic RENUM, DELETE et MERGE. 

Pour votre programme final, évitez le genre ‘‘fleuve’’ (bout à bout), mais 
faites de la programmation ‘‘structurée’’ à base de GOSUB (voir MPSA 
chapitre Il). 

Une fois cette habitude de découpages et recollages à partir des ‘’archi- 
ves'’ prise, vous ne serez plus surpris de faire en une seule soirée un 
6 kilo-octets qui tienne la route. 


Chapitre Il 


L'ÉCRITURE RAPIDE 


Le but n’est pas d'acquérir une virtuosité des doigts sur le clavier, mais 
d'éviter des gestes inutiles ou de ré-improviser toujours les mêmes lignes 
Basic. On gagne alors en rapidité et en fiabilité. 


LE PROGRAMME KEY 


C'est une version améliorée de celui publié dans ‘Mieux programmer 

sur AMSTRAD”. Ce court programme est à lancer par RUN à chaque 

fois que l'on s'apprête à programmer ou à retoucher un programme. 

C'est une bonne habitude à prendre car le gain de temps est considé- 

rable, et ce pour deux raisons : 

— Îln'est plus nécessaire d'appuyer sur SHIFT pour obtenir des carac- 
tères aussi fréquents que $, =, ‘" ‘’, (ou). On peut donc taper avec 
la main droite tandis que l'index de la main gauche suit le listing à 
copier. 

— Le pavé des touches-clés est programmé pour écrire des longueurs 
Basic fréquentes, telles que LOCATE, CHR$S(, etc. Certaines d’'en- 
tre elles comprennent l'exécution (+ CHR$(13)-touche ENTER). 


La ligne 210 est une suite de sages précautions ; elle réinitialise aux 
valeurs par défaut les paramètres d'affichage. En effet, on pourrait héri- 
ter d’autres Valeurs provenant d'un programme précédent ; elles ne 
seraient pas annulées par NEW, CLEAR ou RUN. 


Le listing n'utilisant pas d'astuces particulières, abordons tout de suite 
le mode d'emploi. 

A l'écran apparaît la signification des touches du pavé numérique, à 
l'exception de la petite touche ENTER (trop utile sur le CPC 464 et 
absente sur le CPC 6128). 

Au-dessous de cet encadré, les numéros de codes de ces touches. Ils 
seront utiles si l'on désire redéfinir une de ces touches. A noter que 
la touche ‘‘6'" est laissée libre. Vous voulez lui faire écrire ‘' DATA”. 
Frappez cette touche, il apparaît : 


KEY 134 


13 


14 


Il vous suffit alors de compléter par : 
, DATA ‘et ENTER 


En bas de l'encadré, la liste des caractères redéfinis : 

La touche TAB donne le signe =. 

Les crochets deviennent parenthèses. 

Le a commercial fournit le guillemet. 

L'anti-slash (à droite du ?/)—$. 

Tapez alors la lettre N (ou n), cela effectue un CLS et un NEW, mais 
tout reste défini ! 


QUELQUES REMARQUES 


° Le signe ‘‘flèche en haut'’ apparaissant dans l’encadré signifie que 
le CHR$(13) est inclus, exemple, la touche ‘’7'" efface l'écran, la tou- 
che ‘‘4"" conduit aux lettres noires sur fond bleu-ciel (pour le MODE 
2), donc une touche au lieu de 17 à frapper... 

° La plupart des fonctions Basic du pavé numérique sont suivies d'un 
blanc, c'est le cas pour LOCATE, EDIT, LIST, PRINT et FOR 1 =1 TO. 
Cela évitera bien des ‘’Syntax Error’'. 

e La disposition de ces touches de fonction n’est pas due au hasard. 
Vous apprécierez à l'usage le fait que LIST soit juste au-dessus de 
la petite touche ENTER. 


En plus de votre disquette utilitaire, n'oubliez pas de toujours recopier 
le programme KEY sur votre disquette de travail. 


35 136 137 
32 133 134 
29 130 131 
28 138 


FOR I=1 TO 
Noir/Cielt Jaune/Bleutf 


LOCATE CHREHE< 


PRINT SAUVE 








TAB est le signe — 
Crochets = Parenthese 
A commercial = Guilleme 
anti-slash LS 


TAPEZ N POUR HEM + CLS 


IG ‘ xx KEY +4+ 
TO ‘AMSTRAD CFC — M.fchambault — 1986 
a —— Non modifiees par NEW —— 


AB  FEEY 128,"FRINT "1° 4 
on KEY 129,"LOCATE. “2° 1 
En FEY 12G,"CHR#E(": " 7 


78 KEY 1Z1,"LIST ":° ZT 

8Q FEV 122,"INE G,2G@G:INE 1,0"+CHR# (15): 
° 4 

PQ KEY 1253,"INE G,i:INE 1,24: KHORDER 1"+C 

HR (12): 5 

1Ua KEY 174, "KEY 124": 6 

118 KEY 125, "CLS'"+CHR# (15): 7 

120 KEY 136,"FOR I=1i T0 ":° 8 

158 KEY 12Z7,"EDIT "3° 9 

148 KEY 128,"SAVE "+CHR#(I4) 

15@ KEY DEF 17,0,48:° <( 

169 KEY DEF 1i19,8,41:° ) 

17@ KEY DEF 2%,0,26:° # 

188 KEY DEF 26,8@,34:° " 

190 KEY DEF 689,0,61:° = 

260 ‘AFFICHAGE 

219 MODE 1:WINDOW #@,1,40,1,25:CLS:ORIGI 

N G,@:Z2O0ONE 15:PAPER G:FEN 2 

226 FOR I=125 TO 129 STEP —Z:PRINT TAH(S 
331: TAR(IS9}:1+1: TAH(Z2) 3; I+2:NEXT 

2350 PRINT TARH(S) 3: 128: TAR(19):; 13SB8:PEN 1 

24G LOCATE S5,/72:PFRINT "CLS: PRINT TAH(L 

4): "FOR I=1i TO": :FRINT TAH(ZZ):; "EDIT" 
2284 LOCATE Z,1@: PRINT "Noir/Ciel";:FRIN 

T TBH{16) ; "Jaune/Hleut";:PRINT TAR(E2Z) "1 
ibre” 

288 LOCATE 4,12: PRINT "LOCATE'"3::PRINT T 

ARC19): "CHRE CSI: PRINT TAR(SS) 3; "LIST" 

27@ LOCATE 4,146: PRINT "FRINT':SPC(10):" 

SAVE +CHRE (T4) 

280 LOCATE 12,19: PRINT "TAE est le sign 

sen 

29@ LOCATE 18,2@:FRINT ‘Crochets = Faren 

theses” 

TAB LOCATE 8,21: FRINT "A commercial = 

Guillemets" 

31@ LOCATE 14,22:PRINT 'anti-slash = +" 
520 LOCATE 18,Z24:PRINT "TAFEZ N POUR NEW 
+ CLS" 

250 FLOT 5,224: DRAWR 4:0,0,2 

540 DRAWR 6@,-194 

ES DRAWR —-62:0,0:DRAUNR 0,190 

368 WHILE R£&="":R#=INEEYS#: WEND 

270 IF UPFPERE(R#E)="N" THEN CLS: NEW 

380 END 

ROBES FIN DE LISTING == 


LE PROGRAMME DISCUT 


Ce petit utilitaire pour DISC va ‘‘faire le ménage’ sur vos faces de dis- 
quettes encombrées, et sans erreurs de syntaxe possibles. 

Toutes les disquettes de l’auteur, comportant des programmes Basic 
ou des fichiers, ont une copie de DISCUT. 

Une fois lancé, CLS, et en haut de l'écran apparaît cette ligne menu : 


Cat Erase Rename Drive Bak- | Quit 


Il vous suffit de frapper la lettre initiale (majuscule ou minuscule), sans 
ENTER, pour que l'ordre s'exécute. 

CAT : c'est banal. 

ERASE : On vous demande le nom complet du programme ou du fichier 
à effacer. Si vous tapez *x.* (=tous !l), l'écran vous demande 
confirmation. 

RENAME : L'écran vous demande l’ancien nom, ENTER, puis le nou- 
veau nom. 

DRIVE : Pour ceux d'entre vous possédant deux drives. L'écran 
demande sur quel drive, À ou B, vous voulez travailler. 

BAK:- : Très utile ! Il suffit donc de presser la touche B pour éraser tous 
les fichiers et programmes. BAK. 

Après exécution d'un de ces ordres, la ligne menu est de nouveau pro- 
posée (sans CLS). 

| (La barre par SHIFT/a commercial) : Vous fait ICPM, donc avec perte 
du programme Basic. 

QUITTER : C'est un END, le programme reste en RAM. 


Le module commençant en ligne 1000 va vérifier si vous n'avez pas 
fait de fautes de frappe en entrant un nom de fichier. Si c'est le cas, 
BIP sonore, et vous revenez à la ligne de menu. 

Du super luxe ! 


1A ‘xxx DISCUT ### Ltilitaire pour DIEC 
20 ‘AMSTRAD CFC — M, Srchambauit 


om CES 
18086 PRINT "Cat Erzsse Kename Drive Ba 
E — ! Quit" 


1180 Of="":WHILE C="": OH=UPFERE(INKEYH) : 
WEND 

170 O=INSTR("CERDE!O",0#):1F Q=Q THEN FE 
INT CHR#(7)::GOT0 11@ 

iQ ON © GOSUE 200,=:00,400,500,408,700,8 
aa 

148 GOTO 108 


208 CAT:RETURN 
:B@G INPUT " 


GOSUE 186G:1F REFUS THEN 
220 IF F#="#.x" THEN PRINT" 
Pause CO/N) "ss RE="": WHILE R£="":IR 


lien sur 


ERÂSER quel Fichier 7? ",F#: 


590 
Etes-vous b 


F=UPPERE(INEEY#) : WEND:1IF R#="N" THEN 390 
ELSE IF R#<:"0" THEN 520 


330 :EFRA,GF# 

390 RETURN 

400 INPUT # ANCIEN NOM 
F+F,°#") 59 THEN 498 

410 GOSUR 1QA0:1F REFUS 
=F# 

42@ INPUT " NOUVEAU NOM 
F#,"#") :Q THEN 429 

420 GOSUR 1GO0@:1IF REFUS 


5: "SFÆSIF INSTK( 
THEN 490 ELSE A# 
5: "SF#:IF INSTR( 


THEN 490 ELSE N# 


=F+ 
44Q :REN,ENF,GAF 

490 RETURN 

50 PRINT " SUR QUEL DRIVE (A/E) 7?" 
51Q D$="":WHILE D£="":D#=UPPERY (INÉEY#) : 
WEND 

S2Q IF D${:"A" AND D$£:"E" THEN 510 

53Q !:DRIVE,@D*# 

590 RETURN 

SO F+="x.EAK" 

6iG :ERA,@F# 

828 RETURN 

700 !:CFM 

71@ RETURN 

800 END 

1808 ‘SECURITE DU NOM DE FICHIER 

181@ L=LEN(F#) : REFUS=@ 
1022 IF INSTR(F#F,CHR#E(232)) 
N REFUS=1 

103:@ F=INSTR(FH,".") 

18040 IF F:9 OR (F=@ AND L:8) THEN REFUS= 
4 

1050 IF F:@ AND L-P:z THEN REFUS=1 

1090 IF REFUS THEN FRINT CHR#(7): 

1190 RETURN 

1200  ————- FIN DE LISTING ———--—- 


-@ OR i=0 THE 


DEUX ROUTINES TRES COURANTES (MENU ET AZERTY) 


Il s'agit de deux sous-programmes très courts mais d'un usage très fré- 
quent, surtout le premier. Après les avoir tapés, sauvegardez-les sépa- 
rément. Ils sont destinés à être rappelés par MERGE en cours d'écri- 
ture du programme. Cela explique leurs numéros de ligne très élevés. 
Rappel aux possesseurs de CPC 464 : Vous devez enregistrer ces pro- 
grammes en ASCII, exemple SAVE''MENU'',A. 

Pour le loger dans un programme en cours d'écriture, entrez en mode 
direct : 


MERGE MENU‘ 


LA ROUTINE MENU 


Vous avez souvent des questions posées à l'écran, un choix d'options 
A, B,C, X, Q, par exemple ; mais le programme ne doit pas planter 
si l’étourdi répond par ‘’Z'" où par ‘‘a’’, d'autre part, il est déshonorant 
d'avoir à presser ENTER lorsqu'une réponse ne comporte qu'un seul 
caractère. Toutes ces sécurités sont en dix lignes Basic, toujours rap- 
pelées par un GOSUB 50000. 

Le luxe va même jusqu'à afficher, en ligne 24, la liste des réponses 
possibles, et autocentrée (en MODE 1). 

Mode d'emploi : Reprenons l'exemple des options À, B, C, X et Q. 
Programmez : 


TEX$ - ''ABCXO'':GOSUB 50000 
En bas de l'écran apparaît : 
Réponse (A, B, C, X, Q)—- 


Toute mauvaise réponse est signalée par un bip sonore. Si la réponse 
est valable, le sous-programme retourne un nombre K, représentant la 
place du caractère tapé dans la chaîne TEXS$. Ainsi, pour X, on a K 4. 
Vous pouvez poursuivre votre programme par : 


ON K GOSUB 5000,6000, 7000,8000,9000 


ou toute autre exploitation de K. 


SGOGG ‘REFONSE & UN MENU 

SOQID LT=LEN(TEX#H) 

SDATG LOCATE 15-LT,24:PRINT'Reponse ("; 
SPGTO EOR I=i TO LT-1 

SORAD PRINT MID#(TEX#,1,1)5","32NEXT 
SPCSA PRINT RIGHT#UTEXE, 103") "3; CHR# (154) 
: CHERE (DAT) ; CHR (207) 


SUPER TEKE=-UPFFERE(CTEX#H) 

SEAT REZPPIWHILE REZ: REZ=INEEYS#: WEND 
LOBSA RE=URFEREERE) 2: F=INSTRITEXE ,R#) 
SBSSG IF E=G THEN FRINT CHR#(7)::GOTO SG 


59198 KRETUER 


LA ROUTINE AZERTY 


Ce GOSUB 51000 va permettre d'afficher les minuscules accentuées 
ainsi que les symboles ‘’numéro’' et ‘’paragraphe''. On obtient ces sept 
caractères français par les touches crochets, a commercial (avec ou 
sans SHIFT) et anti-slash. 

Nous avons scrupuleusement respecté la norme ASCII internationale 
(pas comme dans les IBM PC...). De ce fait, ces lettres seront fidèle- 
ment reproduites sur imprimante, à condition que celle-ci ait reçu la 
commande ‘clavier français’, à savoir : 


PRINT #8,CHR$(27);"R'",CHR$(1) 


Les minuscules accentuées donnent un ‘‘fini'" aux pages d'écran, mais 

cela présente souvent des inconvénients : 

— Ce GOSUB doit être au tout début du programme, avant un 
OPENOUT''BIDON''. 

— Le SYMBOL AFTER 64 de la ligne 51010 est encombrant en 
mémoire ; il peut ÿ avoir antagonisme avec le chargement d'une rou- 
tine en langage machine (rare mais authentique). 

— Si vous lancez cette routine (pour l'essayer ou pour tester votre pro- 
gramme en cours d'écriture), alors que les touches définies par le 
programme KEY sont toujours actives, sachez que ces dernières 
(définies dans KEY par KEY DEF) sont prioritaires sur des définitions 
par SYMBOL. Ainsi, la touche anti-slash donnera toujours le signe 
$ et non le ‘'c'”’. 

Donc, pour tester cette routine écrite avec KEY, faites 
SAVE''AZERTY",initialisez la machine (CTRL + SHIFT +ESC), puis 
LOAD''AZERTY"" et enfin RUN (ou GOSUB 51000). 

— Si vous listez un programme avec des chaînes comportant ces let- 
tres, alors que la machine ou l'imprimante ne sont pas en ‘'caractè- 
res français'”, il est normal que les ‘‘'é’’ et les ‘’è'" soient remplacés 
par des petites accollades... 

— Si ces SYMBOL sont actifs et que vous voulez taper ICPM, ou la 
barre pour appeler une routine en RSX, vous obtiendrez un ‘’Ù'" à 
l'écran à la place de la barre. Mais, n'ayez aucune crainte, ca mar- 
che quand même ! Car l'ordinateur a seulement pris le code ASCII 
(124) de cette touche. 
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51000 ‘ AZERTY ACCENTUE 
51010 SYMEOL AFTER 64 
S1070 SYMEOL 464,96,48,120,17,174,704,118 


S10:0 SYMEOL 91,0,56,108,56,0,0,2,0 
51040 SYMECL 92,0,0,60,102,94,1027,60,24 
S1050 SYMEOL 93,60,96,40,107,60,6,60,0 
51060 SYMECL 12:,12,74,60,107,126,96,60, 


51070 SYMEOL 1274,48,74,102,107,1027,107,6 
S1080 SYMEOL 125,49,24,60,107,174,96,60, 


51100 RETURN 


LES CODES D'IMPRIMANTES 


C'est spectaculaire tout ce que l'on peut faire comme variétés de carac- 
tères d'impression ; quatre tailles de lettres, écriture fine, grasse, nor- 
male, italiques, etc. Mais, quand il s’agit de transcrire ces fastidieuses 
suites des CHR$(27), CHR$ de quelque chose, là, l'enthousiasme 
tombe... Surtout quand il faut compulser le manuel de l'imprimante plu- 
sieurs fois pour une même ligne Basic, tant ces codes sont impossi- 
bles à retenir. 

La solution était sans doute trop simple, rebaptisons ces codes (en RAM) 
avec des noms évocateurs ; par exemple, l'ordre pour souligner les 
mots, c'est SOULS et celui pour l’annuler, c'est SOULXS$. Le ‘’X'’ final 
symbolisant une rature en croix. 

Auparavant, on a défini : 


SOULS = CHR$(27)+'-'"+CHR$S(1) 


Ensuite, à chaque fois que l'on veut souligner, par exemple, le mot 
AMSTRAD : 


PRINT # 8,""Micro-ordinateur'";SOULS$;"" AMSTRAD'';SOULXS;' CPC" 


Tous les ordres usuels en codes EPSON sont écrits une fois pour tou- 
tes dans une routine ‘'EPSON'’ que l'on joint à notre programme par 
MERGE ‘EPSON’. Un GOSUB 59000 vers le début du programme, et 
voilà en mémoire RAM seize codes faciles à retenir et aussi très courts 
à écrire. Jugez plutôt : 


EFFS$ = Effacement du buffer de l'imprimante (initialisation). 
GRAS$ — Ecriture grasse (renforcée). 
GROSS$ = Gros caractères (40 par ligne). 


PICAS$ = Caractères PICA, normaux (80 par ligne). 


ELITES = Caractères ELITE (96 par ligne). 
COND$ = Caractères condensés (137 par ligne). 
ITALS = Italiques. 

TITRES = Caractères gros sur une ligne. 

FRANS = Caractères France. 

USAS$ = Caractères USA. 


Notre module est présenté dans ce petit programme de démonstration. 
Remarquez que les lignes Basic sont à la fois courtes et compréhensi- 
bles sans manuel. L'écriture fut très rapide et, elle aussi, sans recours 
au manuel... 


1 ‘ EFSON — CODAGE EN CL£IR — M4 8Sé& 

15 GOSUE SSuaa 

PA FRINT ÉO,EFFEs GRASH:TITRE#: SPRC(S) SES 
SAT EFEON" 

SA FRINT #£S 

AB PRINT HS, "ECRITURE EN ‘3: SOULÆ:; "SOULIS 

NANT 3: SOULXÆS" UN MOT" 

58 FRINT HS ,ELITE#:FRANE: "ELUS FRETITS:Ca 

ractires accentutes en ELITEM:FICAE 

BA PRINT HOQ,EFF#: COND#:; "LE MODE CONDENSE 
FEUT PLACER 122 CARRACTERES FAR LISNEM:;C 
ONDX# 

FA FRINT HS,SRASE: "ON PEUT LOGER DE L'" 
ITALES "ITALIQUE "is ITALXE: "OL MILIEL" 

BB PRINT HO,EFFÆs: SUN MOT EN "3: GRASSE: "GRA 
ES iCRASXE: "PUIS EN "ss GROS: "GROS"; 

DE FRINT H#O,GROSY#:" CARACT." 

188 FRINT HS:FRINT #9 ,GRASE: "SANS CHRE L 
FE LISTING EST CLARIR,RAPIDE,'":PRINT #B,EF 
F+ 

1i1A END 

12@ ‘ÊFRES ESSAI,TAPER DELETE —-124 ET Sâ 
VE "EFSON",A 

27GR@ “CODAGES EPSON — M.A4. 86 

594018 EFFÆ=CHRE (27) 4+CHRE(EA) 

SPA20 CRASE=CHRE(EZ7)+"E" 

2705:8 GRASXE-CHRE (27) +"F" 

oPB48 TITRES=CHRE (14) 

598598 ELITE#=CHRE (27) +"M" 


(27) +" W4+CHRE (1) 
27) +"U"4CHRE (D) 







1 


En On ON CN UN 
Ü 4 


(27) +"P"+GROSXF+CONDX# 
SOUL F=CHRY (27) +0 4CHRE (1) 
{27)+"-"+CHRE (@) 











= @ (27)+"4" 
32 CHR (273405 
D FRANS=CHRE (27) +" die SE 
162 LSAF-CHRE (27) +"R4CHRE (D 
SS*09 RETURN 


DONNE : 


ESS SE EFrFSOrJ 


: ITALTQUE AU MILIEU 
| ERAS PURE EU dial Nr f his 


SANS CHRE LE LISTINS EST CLAIR,RAFIDE. 





Comme il est dit en ligne 120, seul le module en 59000 est à 
sauvegarder. 

Nous avons laissé de la place entre les lignes 59160 et 59400, afin 
que vous puissiez compléter par des codes que vous utilisez quelquefois. 


Chapitre II 


MODIFICATIONS DES 
PROGRAMMES ET FICHIERS 


Modifier un programme Basic, c'est très facile après LIST ou EDIT, mais 
encore faut-il connaître le ou les numéros de lignes à modifier, et lors- 
que le listing est très long, la recherche peut être longue et incomplète. 
Idem pour un fichier ASCII enregistré par un programme : la modifica- 
tion de nombreuses fiches peut être fastidieuse ou très délicate. Deux 
exemples : 


e Un long programme Basic donne des résultats incohérents parce que 
vous vous rendez compte que vous avez dû utiliser le même nom 
de variable pour désigner deux choses différentes, un bug classique, 
n'est-ce pas ? Quel pointage fastidieux et peu sûr si le listing fait cinq 
pages d'imprimante ! Et si vous n'avez pas d'imprimante, c'est encore 
pire ! 

° Dans un fichier d'adresses, un nom de ville revient très fréquemment 
et vous vous apercevez que vous l'avez mal orthographié, par exem- 
ple, ‘’VILLEURBANNE"" avec un seul N au lieu de deux. Votre logi- 
ciel a bien l'option ‘'Modification'", mais faire 82 fois cette même 
retouche, alors là, bon courage ! Même problème dans un texte écrit 
par ‘’AMLETTRE"" (traitement de texte AMSOFT) où il faudrait rem- 
placer un nom fréquent par un autre, car ce logiciel n'a pas la fonc- 
tion remplacement. 


En somme, il Y a deux problèmes distincts mais souvent combinés : 
la recherche, le remplacement. 

Afin d'automatiser ces longues corvées, nous vous proposons un petit 
programme Basic et, pour ceux qui possèdent un lecteur de disquet- 
tes, l’art et la manière d'utiliser le programme ED.COM du CPM. 
S'il s'agit d'un programme Basic, il faut tout d’abord en enregistrer une 
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version en ASCII sur laquelle nous travaillerons. Par exemple, pour traiter 
le programme KEY : 


SAVE''KEYA'",A 


Remarquez le A ajouté à la fin du nom afin d’ôter toute ambiguiité avec 
la version en Basic. Après modification et sauvegarde de KEYA modi- 
fié, on essayera par RUN''KEYA””". Puis, en RAM, on pourra le sauve- 
garder en Basic par SAVE''KEY2". 


LE PROGRAMME FOUINE 


Une fois lancé, il vous demande s'il faut traiter un fichier ou un pro- 
gramme en ASCII. Dans ce dernier cas, les enregistrements ne seront 
pas numérotés à l'écran ou sur imprimante. Puis, si vous voulez affi- 
cher sur l'écran où sur imprimante et enfin le nom du fichier ou 
programme. 

Deuxième phase : on demande le mot à rechercher. Il va lire les enre- 
gistrements un par un et, s’il y trouve le mot en question, il affiche (écran 
ou imprimante) le numéro de l'enregistrement et son contenu. En fin 


de fichier, il indique le nombre total ‘’N’’ d'enregistrements. Trois 
options sont alors proposées : autre recherche de mot, corrections, 
quitter. 


NOTE : Si au ‘’mot à rechercher’’ vous tapez ENTER, tout le fichier sera 
listé. 

La troisième phase est la correction, elle ne concerne pas les program- 
mes Basic, c'est plus facile par EDIT. D'autre part, elle ne peut s'appli- 
quer qu'aux enregistrements de ‘’chaînes'" et ne contenant pas de 
virgules. 

C'est le cas le plus courant, et prévoir les cas où il faudrait LINE INPUT 
au lieu de INPUT et WRITE au lieu de PRINT aurait trop alourdi ce 
programme. 

Le fichier est alors chargé en RAM sous forme de DIM F$(N). Puis, on 
vous demande le numéro à corriger. Le contenu de cet enregistrement 
est affiché à l'écran et vous pouvez alors taper sa valeur (chaîne) corri- 
gée. Si vous ne voulez pas corriger (erreur de numéro), tapez deux fois 
le signe égal. En fin de corrections, tapez Q en guise de numéro. 
Quatrième phase : la sauvegarde du fichier corrigé. On demande le 
nom ; en répondant par ENTER, ce sera l’ancien nom. En fin de sauve- 
garde, CLS, END. 


QUELQUES REMARQUES 


e Le DIM bidon de la ligne 100 est pour permettre le ERASE F$ de la 
ligne 310 ; ce dernier est une précaution au cas où vous relanceriez 
le programme par un GOTO 120 ou GOTO 300... 

e Les lignes 50000 ne sont pas à taper, faites MERGE'"MENU"" (cha- 
pitre Il). 


e Ce programme est applicable aux cassettes ou disquettes. S'il per- 
met des recherches globales, il ne permet que des corrections 
ponctuelles 

e Ce programme permet aussi d'éditer le contenu d'un fichier ASCII 
et avec numérotation. Très utile pour ceux qui n’ont pas de lecteur 
de disquettes, donc ne disposent pas des commandes TYPE et ED 
du DOS CPM. 

e Ces corrections sont parfois plus rapides que par le logiciel qui avait 
créé le fichier. (allusion à certains logiciels du commerce). 


18 ‘ FOUINE / EXPLORE UN FICHIER ASCII 
28 ‘ AMSTRAD CFC / M. ARCHAMBAULT 2-86 


2G CLS: OFENOUT HTDON": MEMORY HIMEM-—1:CLO 
SEGUT 

48 LOCATE 14,4:PFEN Z:PRINT FE QO L I MN E° 
:FEN 1 

58 LOCATE 1Z,6:FRINT "cherche en ASCII’: 
PEN € 

68 LOCATE PIB: PRINT "Programme ou Fichi 
er T':TEXE="PF "2: GOSUER SARAGUG 

F8 GÆE=MIDE(TEXE,E, 10 

86 LOCATE 7,14:FRINT "eur Ecran où Impri 
mante P':iTEX#="ECI":GOSUR 52000 

SQ IF KE=2 THEN D=8 ELSE D=@ 

iA8 DIM F#(12): "DIM BIDON pour ligne Zz1@ 
116 LOCATE 35,19: INFUT'NOM du Fichier ou 
Frogramme: ",FICHE 

128 CLS:N=E 

158 FEN Z:LINE INPFUT'MOT A RECHERCHER : 
FSXF:FRINT: PEN 1 

148% OPENIN FICH# 

158 WHILE NOT EOF:N=N+1 

168 LINE INPFUTH9,AE 

17@ IF OH="F" AND INSTR(AEF,X#F) THEN FEN 
2E:PRINT #HD,N;"s "ss: PEN 1:PRINT #D,A#: GOT 
O0 194% 

188 IF INSTR(AF,X#) THEN FRINT #HD,A# 

198 WEND 

288 CLOSEIN 

Z1@ PRINT:FEN Z:FRINT N3:PEN 1:FRINT "= 
FIN =: RECHERCHE ,CORRIGE,QUITTE ?T°:TEX#="R 
CG'":FEN 3: GOSUR SAQUOG:FEN 1 

226 ON KE GOTO 17:4,:688,2a8 

386 ‘ CORRECTION 
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31@ CLS:LOCATE 3,18: FRINT "Je charge le 

Fichier en DIM FÆC"MNS")":ERASE F# 

ZT2@ DIM FÆiN) 

3TQ OFENIN FICH#:FOR I1=1 TO N 

340 INPFUTHS,F#{TI):NEXT:CLOSEIN 

258 CLS:LOCATE 1,2:INPUT “CORRIGER QUEL 

NUMERO 7 (G=Quitter) ",J# 

36Q IF UFFER#({J#)="Q" THEN 5@0 

370 J=VAL(JH):IF J=Q OR JÈ:N THEN FRINT C 

HR# (7): GOTO 5 

388 LOCATE 4,4:PRINT "© Si pas de Correc 

tion tapez == )" 

290 FEN Z:FRINT:PRINT FH(J):PEN 1 

400 FRINT:LINE INPUT AŒ:IF Af="==" THEN 

42 

410 FF{J)=AE 

A2Q GOTO =50 

COQ ‘SAUVEGARDE 

Siam CLS:LOCATE 6,4:PEN Z:PRINT "SAUVEGSAR 

DE DU FICHIER CORRIGE" 

u20 LOCATE S,12:PFEN Z:PFRINT "<{ ENTER= ME 

ME NOM ; O=QUITTER )'":FEN 1 

550 LOCATE 1@,18@:INFUT "NOM du FICHIER : 
M,FICORE 

540 IF FICOR$S="" THEN FICOR#=FICHE 

550 IF UFFER#(FICOR#)="Q" THEN 4@@ 

Séû OFENOUT FICOR#:FOR I=1 TON 

59/70 WRITEH9,F#(I):NEXT:CLOSEOUT 

680 CLS:FEN 1 

&41@ END 

cOQ0G ‘“REFONSE A UN MENU 

50018 LT=-LENCTEX#) 

SAD2Q LOCATE 15-LT,24:FRINT'"'Reponse {": 

500: FOR I=1 TO LT-i 

SO04QG PRINT MID#(TEX#,1,1)3","3:NEXT 

50050 PRINT RIGHT#(TEX#,1)3:")"3:CHR#(154) 
3: CHR# (247) : CHR# 207) 

SO08Q TEXHE=UFFERE(CTEX#) 

SOQ7Q RE="":WHILE R£E="":RE=INEEYS#: WEND 

50088 RE=UFFERSE (RE) : E=INSTEUTEXS,KR#) 

SOQ9Q IF E=Q THEN PRINT CHR#(7)::GO0OT0 SQ 

@7@ 

50180 RETURN 


L'UTILISATION DE ED.COM 
(sur la disquette CPM) 


Ce qui suit ne concerne que les possesseurs de lecteur de disquettes. 
Un des programmes de la disquette CPM s'appelle ED.COM (ED venant 
de EDiteur). Il est stupéfiant que la micro-notice AMSTRAD ne parle 
pas de cette petite merveille. En effet, ce programme va charger en 
RAM un fichier, ou un programme Basic ou ASCII, afin de le triturer 
à notre guise et de le sauvegarder ensuite. Outre la recherche de mot 
et les modifications ponctuelles, on peut lui demander de remplacer un 
mot par un autre dans tout le fichier, ou à partir de tel endroit, et c'est 
quasi instantané ! Une bête à tout faire. 

Pour bien comprendre et retenir notre démonstration, il est indispensa- 
ble, avant d'aller plus loin, que vous vous mettiez au clavier de votre 
AMSTRAD afin d'effectuer point par point ce que nous indiquerons. 
Il nous faut un fichier de travail, par exemple, le programme KEY (ou 
un autre) du chapitre Il. 


LOAD''KEY'" puis SAVE''KEYA"",A 


Sur la même face de disquette, il faut maintenant une copie de ED.COM. 
Mettez en place la disquette CPM, tapez ICPM puis FILECOPY ED.COM, 
et suivez les indications à l'écran. ED.COM et KEYA sont à présent sur 
la même face de la disquette de travail. On est toujours sous CPM, la 
disquette de travail est dans le drive, non protégée en écriture. 
Tapez ED KEYA (pas de point) ; en-dessous apparaît le ‘’curseur'' de 
ED, à savoir deux points-étoile (:*). 

C'est le moment de vous indiquer les diverses commandes de ED. C'est 
toujours une seule lettre où signe. 


toutes les fiches 

APPEND = ajouter 

FIND = trouver 

TYPE = écrire 

INSERT = insérer 

SWAP = échanger 

KILL = supprimer 

BEGINNING = début 

END = fin avec sauvegarde + retour à CPM 
QUITTER (sans sauvegarde) + retour à CPM 
HOLD = sauvegarde de sécurité. On reste dans ED 
Oublie les modifications depuis le dernier H 
Numéro. Exemple 15:=fiche n° 15 

CTRL +7 = séparateur (idem : en Basic) 


OU I 


WI 


HWOUOUOUN 


Il 


OTOMWANT ND + 


N 


Première chose à ne jamais oublier, dire à ED sur quelle partie du fichier 
on veut opérer ; ici tout le fichier, donc un APPEND total. 
Tapez pour cela # À (= ajoute tout). On a alors à l'écran 1:+ signifiant 


que le ‘‘pointeur'" est sur la fiche n° 1. 
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Visionnons les dix premières fiches ; pour cela tapons 10T. Nous retrou- 
vons alors les dix premières lignes de notre programme Basic, mais, 
en plus, numérotées de 1 à 10 (ce que n'aurait pas fait TYPE KEYA 
en CPM direct). Si nous avions tapé #T, nous aurions ‘’listé’’ tout le 
fichier. OK ? 

Remarquez que nous avons de nouveau 1:+. Déplacons ce pointeur en 
tapant 8:, puis encore 10T. Nous listons alors les fiches n° 8 à 17, 
et le pointeur est resté à 8. 

Pour le ramener à 1, on a le choix entre 1: ou plus simplement B. 
Essayez B. 

Listons la fiche n° 23 toute seule, faisons 23: puis 1T. A noter que 
T tout seul a le même effet. 

Maintenant que nous savons nous promener dans le fichier, abordons 
des choses plus intéressantes : 


LA COMMANDE FIND 


Ramenons le pointeur à 1 en tapant B, et localisons un mot, par exem- 
ple ‘’PLOT'" parce que figurant dans ce fichier. C'est tout simple, tapez 
FPLOT (pas d'espace entre le F et le mot à chercher). L'écran affiche 
33:+ parce qu'il a trouvé en fiche n° 33, mais attention, le fameux poin- 
teur n'est pas au début de la fiche 33, mais dedans, tout de suite après 
PLOT. La preuve, si vous tapez T, l'écran affiche ce qui suit le mot PLOT 
dans la fiche 33. Essayez. 

Voilà l'astuce contre cela. Refaites B, puis FPLOT, puis tapez le chiffre 
zéro. Vous avez alors la fiche 33 au complet. 

Repartons, tapons B puis FPLOT, encore FPLOT. On a le message : 


BREAK ‘'#''AT 
33:+ 


Cela veut dire qu'il a tout (#) exploré, annulé votre commande et qu'il 
revient à 33. Parce qu'il n'y avait plus d'autre PLOT. 

Retour par B puis 8FLOCA. Réponse 25:+, c'est le troisième LOCATE. 
# FLOCA aurait indiqué le dernier. 

Vous voyez que la commande F n'est pas répétitive, il faut la retaper 
chaque fois (CPM 2.2). Donc, sur ce point le programme FOUINE était 
plus intéressant puisqu'il affiche toutes les ‘’occurences”. 


LA COMMANDE SWAP (Echange) 


Elle est la plus utile et aussi la plus spectaculaire. Retour en B. 
2SPRINTIZWRITE (pas d'espaces) 


signifie ‘’Les deux premières fois que tu rencontres PRINT, tu rempla- 
ces par WRITE’”". Le nombre placé devant une ‘‘lettre-commande'" veut 
dire le nombre de fois. Par défaut, c'est 1, le # voulant dire maxi. 


Important : le séparateur ÎZ s'obtient par CTRL et Z. Si vous tapez la 
touche ‘’1'" (à gauche de CLR), puis la touche Z, c'est la même chose 
à l'écran, mais ED ne comprend pas. 

Tapez 10: puis 


# SKEYIZTOUCHE 


puis B et 20T et admirez le travail | 

Pour annuler ce massacre, tapez la lettre O. Confirmez par Y (YES), 
KEYA version d'origine est rechargée. N'oubliez pas le # A... 

Tapez #S'IZREM !Z (un espace après REM, confirmé par le second 
12). 

Vous devinez ce qu'il vient de faire. 

Sauvegarde de sécurité : pour cela tapez H. Ceci fait, vous avez :* sans 
le 1. Refaites # À, puis 20T, pour voir. 

Puissant et rapide la bête ! 

Si au lieu de taper H, on avait tapé E (END), il y aurait eu sauvegarde 
mais avec, ensuite, retour à CPM (A>). 


LES AUTRES COMMANDES UTILES 


Ce sont K (KILL) et | (INSERT). Tapez 3: puis K. Le fiche n° 3 est détruite 
et les suivantes sont renumérotées. Pour vous en assurer, faites B 
puis 5T. 

Retapez 3: puis 


130 REM LIGNE REMISE 
Réponse + tout seul. Faites deux fois ENTER puis B et 5T. 


RESUME : Pour modifier le contenu d'une fiche : 
1 — Appelez son numéro (suivi de :) 

2 — Tapez K pour la détruire 

3 — Tapez | suivi du nouveau contenu 

4 — Deux fois ENTER 


Tapez Q (quitter sans sauvegarde) ; après confirmation par Ÿ, vous quit- 
tez ED et vous voilà revenu à CPM. Tapez alors : 
TYPE KEYA 


C'est le ‘listing’ sauvegardé par le H de ED (REM au lieu de ‘). Si vous 
préférez cette version au KEY original, revenez au Basic par 
CTRL+SHIFT +ESC, et faites : 


LOAD''KEYA’" puis SAVE''KEY"" 


A l'occasion, faites RUN''DISCUT"" (chapitre Il) pour faire le ménage 
en effaçant les .BAK et KEYA qui ne servent plus à rien. 


CONCLUSION 


L'auteur s'excuse de cette ‘‘’séance de travaux pratiques’ sur ED.COM, 
mais il n'y avait pas d’autres méthodes pour vous faire découvrir ce 
mini langage super utile. Les ouvrages traitant du CPM avec clarté étant 
rarissimes. 

ED.COM a d'autres commandes mais, à notre avis, de moindre intérêt. 


FOUINE ou ED, que choisir ? Pour rechercher toutes les occurences d'un 
mot, par exemple tous les ‘’GOTO 1000”, FOUINE est préférable, mais 
il est surtout un localisateur. Pour les modifications, ED.COM est le 
champion. 


Nous avons souvent parlé de ‘‘disquette de travail'" : c'est une sorte 
d'établi où le programme est simplement mis au point. Une fois ter- 
miné, il sera transféré ailleurs et effacé de la disquette de travail. Sur 
celle-ci, ayez en permanence les programmes : 


KEY.BAS 
DISCUT.BAS 
FOUINE.BAS 
ED.COM 


ce qui ne représente que 13 kilo-octets sur les 159 d'une face de dis- 
quette. Mais quel gain de temps ! 


Chapitre IV 


COPIE DE PROGRAMMES 
EN LANGAGE MACHINE 


Soyons très clairs dès le départ. || n’est pas question dans ce chapitre 
de vous apprendre à programmer en langage machine ; un ouvrage 
d'épaisseur double y suffirait à peine ; mais de vous permettre d’utili- 
ser des programmes écrits par d’autres, et publiés dans des revues ou 
des livres. Nuance ! 

Pour le débutant, ces listings en plusieurs colonnes sont déroutants, 
or le titre et le rôle de tels programmes sont souvent très alléchants. 
Comment les entrer au clavier sans maîtriser cette technique ? 
Nous avons créé un programme Basic pour cela ; il se chargera de tout, 
très rapidement, tout en surveillant vos erreurs. Toutefois, afin de ne 
pas ‘‘taper idiot”, il est absolument indispensable de posséder quelques 
notions élémentaires sur le langage machine. Nous serons à la fois clairs 
et brefs ! Ces ‘notions triées'’ sont très superficielles, faciles à 
comprendre, peu nombreuses, mais, répétons-le, indispensables. 


QU'EST-CE QU'UN PROGRAMME EN LANGAGE MACHINE ? 


C'est une suite continue de nombres, de O à 255, qui ont été logés 
quelque part dans la mémoire. Par exemple, de /’adresse 32901 à 
32984 ; sa /ongueur est donc de 84 octets (et non pas 83...) et son 
adresse départ est 32901. Pour lancer ce programme à partir du Basic, 
ce n'est pas RUN, mais CALL 32901. Ne vous occupez pas de la lon- 
gueur, il saura où s'arrêter. 

À quoi correspondent ces nombres de O à 255 (1 octet) ? À une 
commande codée, suivie par autant de valeurs numériques qu'elle exige. 
Ceci fait, la machine sait que le nombre suivant est un numéro de 
commande, et ainsi de suite. 
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Donc, le ‘‘vrai listing'’ de ce programme est une suite de 84 nombres, 
de O à 255, qui ont été ‘‘’pokés’” à partir de l'adresse 32901 (dans notre 
exemple). Pas très lisible cela ! Rassurez-vous, le programmeur ne les 
a pas entrés directement, ce serait super maso ! Il s'est servi d’un logiciel 
appelé ‘’Assembleur'". Grâce à lui, il a tapé son programme ‘‘en clair’’ 
comme vous l'auriez fait en Basic, c'est-à-dire qu'il dispose de 
commandes (mots de deux à quatre lettres) qu'il fait suivre des para- 
mètres (valeurs) qu'il désire. En somme un autre langage que le Basic, 
que l'on appelle de l’ Assembleur. La machine ne comprend pas du tout 
ce langage, mais le logiciel, oui. C'est lui qui le traduit en cette suite 
de nombres et les ‘’poke'" en mémoire (c'est l'assemblage). 

Ceci fait, le programmeur l’a sauvegardé sur cassette ou disquette, en 

lui donnant un nom, puis il a demandé à son logiciel assembleur de le 

lister sur imprimante. Nous allons revenir sur ces listings assez spéciaux, 
mais avant cela, disons les avantages des programmes en langage 
machine : 

e C'est beaucoup plus rapide que l'équivalent en Basic, de 3 à 50 fois 
selon le cas. C'est pourquoi les logiciels de jeux (animation) sont le 
plus souvent en ce langage (on dit aussi programmes ‘‘binaires''). 

e On peut faire des choses impossibles avec le Basic livré avec l'ordi- 
nateur. Plus ponctuellement, on peut créer des fonctions Basic man- 
quantes, que l'on appelle des ‘’RSX''. À noter que ces courts 
programmes ne sont pas lancés par CALL, mais par barre verticale, 
suivie du nom de baptême (inclus dans le programme), par exemple : 


ICERCLE 220,350,40,3 


va tracer un cercle de rayon 40 en PEN 3 avec le centre situé aux 
coordonnées 220,350. La littérature abonde de listings de RSX et 
certains sont très alléchants ! 


Est-ce qu'un programme en langage machine tient moins de place en 
mémoire que son homologue en Basic ? La plupart du temps oui, mais 
ce n'est pas très spectaculaire... Disons que c'est là un atout faible, 
parfois inexistant. 


LE LISTING EN ASSEMBLEUR 


Ne soyez plus de ceux qui appellent cela des'’pages en chinois''… 
Toute la partie droite restitue ce que le programmeur a tapé en Assem- 
bleur : on s'en moque, mais disons quand même à quoi cela correspond. 
La colonne de droite sont des REM. 

Celle plus à gauche est son programme, ces mots de 2 ou 4 lettres 
(LD, ADD, JP, etc.) appelés ‘’mnémoniques’’ suivis de paramètres ou 
de noms de sous-programmes (équivalents de nos GOTO ou GOSUB), 
des noms à lui. 

Encore plus à gauche, la colonne des étiquettes (ou labels) ; ce sont 
les noms de ces sous-programmes, car il n'y a pas de numéros de ligne 
comme en Basic. 


Encore plus à gauche, la colonne de ces nombres établis par le logiciel 
assembleur. C'est uniquement cette colonne qui nous intéresse. Ces 
nombres sont écrits en hexadécimal, on y reviendra. 

Encore plus à gauche (et c'est la dernière), la colonne des adresses où 
sont pokés ces nombres. On n'a pas à la retaper, mais elle nous sera 
utile pour vérifier que l’on ne s’est pas trompé. En fait, seule la pre- 
mière adresse nous intéresse, c'est la fameuse ‘’ ADRESSE DEPART" 
À noter à propos de cette dernière : ou bien le programmeur l'a choisie 
arbitrairement, où il a confié ce soin au logiciel assembleur qui, si le 
programme est court, opte généralement pour &AO00 (-40960 en 
décimal) parce que ‘*’AO00””, c'est facile à retenir... 

Les listings publiés dans les livres ou mensuels sont les photos des 
listings obtenus avec tel Assembleur, d'où certaines différences de 
présentation : aucune importance. Certains débutent par plusieurs lignes 
d'en-tête qui présentent les divers sous-programmes ; n’en tenez pas 
compte. 


Revenons à la fameuse colonne de nombres qui nous intéresse, c'est 
généralement la deuxième en partant de la gauche ; elle contient les 
valeurs en hexadécimal que nous allons entrer au clavier, octet par octet, 
c'est-à-dire deux caractères par octet : chiffres de O à 9 et lettres de 
À à F. Une ligne de cette colonne peut compter six caractères, exem- 
ple D9A782 : il faudra les entrer séparément par groupes de deux, à 
savoir les trois octets D9, A7 et 82 (toujours en hexa). C'est super 
important. 


LA NOTATION HEXADECIMALE 
(Programme HEXADEC) 


Le préfixe ‘‘’hexadéci’” signifie seize, car nous disposons de 16 carac- 
tères, dix chiffres plus six lettres de À à F. Ainsi, deux de ces caractè- 
res permettent 256 combinaisons, donc de compter de O à 255 (00 =0 
et &FF = 255). Le très court programme Basic ‘‘HEXADEC'' permet de 
faire la traduction hexadécimal/décimal dans les deux sens, et ce entre 
O et 65535 (à partir de 256 et jusqu'à 65535, il faut deux octets). 
Sans être indispensable, ce petit programme est souvent très utile. Pour 
changer de sens dans la traduction, il vous suffira de taper la lettre Q 
(= quitter). En Hexa, inutile de taper le ‘’&''. Si cette routine a été ‘’mer- 
gée'" à un programme en cours de mise au point, appelez-la par GOTO 
40000, et touche ESC pour en sortir. Mieux, programmez la touche 
‘6’ du pavé numérique par : 


KEY 134,'"GOTO 40000’ +CHR$(13) 
Le début n'a pas de CLS, c’est voulu. 
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ABGAG ‘ HEXADEC — CONVERSION HEËA <——5% 
DECI — M. ARCHAMEALET 


A48CiQ FRINT STRINGH(4N,"-")::FRINT " El 
pour Tfransitions HEKX8 £--; DECI” 
AGGEQ FRINT: INPUT 0 OR, HE: H£=UFPERS CH#) 


:IF H#f="0" THEN 49108 

A0G:G FE-G:FOR I=i TO LEN(H#):IF ASC(MID 

ECH#,1,1)) :7Q OR ASC(MIDH(HF,I1,1)) <48 

THEN FE=1 

48042 NEXT:IF FE THEN 40080 

AGDESQ IF LEN(CH#H)<=2 THEN PRINT "  ";VAL( 

"8"4+H$):GOTO 40092 

AP06G IF LEN(CH#F)=Z THEN H£="g"+H# 

4@A7R IF LEN(H#)=4 THEN D=VAL ("&"4LEFT#( 

HE,2))#756+VAL CUEMARIGHTEU(HE DD): PRINT * 
“: D:GOTO 42098 

40080 FRINT CHRE(7) 

32070 GOTO 40270 

40108 PRINT: INPUT "DECI : ",D# 

40118 IF UFPFERF(D#H)="0O" THEN 40070 

40170 FE-=@:FOR I1=i TO LEN(D#):1F ASC(MID 

F(D#,1,1)) >57 OR ASC(MID#(DH,1,1)) <48 

THEN FE=1 

AB: NEXT 

49014@ D=VAL(D#):IF FE OR D:6552S THEN FE 

INT CHR#(7);::G0OTO 48100 


48150 FRINT" BU4HEXE (D) 
41016@ GOTO 4010@ 
AB17Q * ———--—- FIN DE LISTING ——---—- 


Après usage, effacez par DELETE 40000-40900. 


LE PROGRAMME MACHDIM 


Le travail est simple : on entre l'adresse départ puis chacun des octets 
du listing (colonne n° 2) est entré, puis POKE à l'adresse à chaque fois 
augmentée de 1. Trois lignes de Basic suffiraient, or notre programme 
est bien plus long ! Pourquoi ? 

Parce que non seulement l'erreur est humaine, mais, ici, elle est super 
facile et serait très fastidieuse à corriger. Il nous faut un produit bourré 
de sécurités anti-étourderies, des ‘‘sorties de secours’’, des possibili- 
tés de contrôle et de correction rapides et faciles. Ce confort, ce super 
luxe, est en fait quasi obligatoire, car taper des centaines de nombres 


en hexa, sans rien y comprendre, n'a vraiment rien de passionnant ; 
le risque d'erreur est alors énorme car l'attention se relâche, le Basic 
doit veiller à cela. 

En voici le principe : les valeurs hexa entrées et leurs adresses corres- 
pondantes sont mises en tableaux DIM, on ne les POKE pas encore. 
En fin de saisie, ces tableaux sont enregistrés sur cassette ou disquette. 
Seconde phase : on lance un second programme Basic, très court celui- 
là, ‘’POKEDIM'" qui va recharger ces valeurs tout en effectuant le 
‘’pokage'” en mémoire. On peut alors sauvegarder le précieux pro- 
gramme en langage machine puis l'essayer. Cette méthode très indi- 
recte pour mettre en RAM le programme binaire peut surprendre : c'est 
en fait une sécurité anti-plantages pour des programmes longs ou logés 
très haut ou très bas dans la mémoire. Fiabilité avant tout. 


Revenons à MACHDIM. De quoi disposons-nous ? 

— D'un écran de saisie en plusieurs WINDOWS, très clair et sans 
équivoque ; 

— d'une surveillance permanente des octets en hexa (par Basic) ; 

— d'un contrôle visuel des concordances adresses/valeurs ; 

— de la possibilité d'interrompre la saisie pour sauvegarde partielle, 
visionner, corriger telle valeur ; 

— de la possibilité de poursuivre la saisie un autre jour ; 

— des adresses présentées en décimal et en hexadécimal ; 

— de la possibilité de lister la saisie sur écran où sur imprimante (pour 
vérifications) ; 

— en fin de saisie, et après sauvegarde des DIM (précaution élémen- 
taire), de la possibilité d'essayer le programme ; c'est un pokage des 
valeurs, suivi d'un CAL ; 

— en quittant la saisie par ‘’Q'”’, de l'accès aux diverses options les- 
quelles sont légendées dans un WINDOW ; 

— chaque option choisie demande confirmation ; 

— confirmation et paramètres pour une option sont dans un autre 
WINDOW ; 

— d'autres WINDOWS affichent en permanence les légendes des colon- 
nes et la fameuse adresse départ, en hexa et en décimal. 


NOTE : Comme vous le constatez, l’auteur aime son petit confort. Et 
vous ? 


LE MODE D'EMPLOI 


L'écran vous demande tout d'abord d'entrer l'adresse départ, en déci- 
mal ou en hexa. Dans ce dernier cas, après le ‘’&''" pas d'espace et 
obligatoirement quatre caractères, exemple &9800. 

Apparaît alors l'écran de saisie, multi-WINDOW, multicolore (ca 
réveille...) ; moitié gauche = saisie, moitié droite =les interventions. 
La partie saisie est en trois colonnes, adresse en décimal, sa traduc- 
tion en hexa et les valeurs hexa à entrer ; le curseur vous ÿ attend. 
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C'est bien sûr le programme qui affiche les adresses. A droite, la fené- 
tre menu propose : Q=quitter, E=erreur, V=vision, | =impression, 
L=LOAD, S=SAVE et C=CALL. 

La fenêtre de saisie comprend vingt lignes avec scrolling. De temps à 
autre, vérifiez qu'un oubli n’a pas provoqué un décalage adresse/valeur. 
Les valeurs entrées sont obligatoirement en deux caractères hexa, et 
en majuscules (sinon BIP sonore !). Ne tapez pas le ‘’&'’, il est sous- 
entendu. 


ADRESSE UALEUR ADRESSE DEPART : 
eci hexa 460704 & 


Ualeurs en DIM 


ÿ 


29001000 
OUTRE 
III 


da 
[3] 
(s] 
[a 
6 
6 
6 
[s] 
6 
eo 
[5] 
[s] 
6 
6 
[s] 
o 
(s) 


EC LES EN EC ES ES EC PE PI PI PE PIC PRE PA 
A bp pe pp 1 OO OO © 
LOU UT DATE 
bb OO DD LD OLD OLD KO 
> LL LL LL Le Le LL Le Le LL 
as a a a [a a 
MAGOHDLNOUNÈUNUE S 
HTOLLNUU ECM D 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 





Si vous n'entrez qu'un seul caractère, le programme consulte s'il est 
dans la liste des caractères d'intervention du menu. 

En vision, il va lister votre saisie à partir de l'adresse de votre choix. 
Il présente vingt lignes et s'arrête ; pas comme LIST en Basic... Trois 
nouvelles options apparaissent : S=suite, E = erreur repérée, à corri- 
ger et F=fin de vision (retour à la saisie où autre option). 
Exemple : pour taper le programme ‘’HARD9FO0'" (Hard-copy d'écran) 
du chapitre XVI, il vous faudra entrer l'adresse départ &9F00 (ou 40704 
en décimal), puis saisir successivement CD, A6, 9F, 3E, 1B, etc. 
En fin de saisie, tapez Q, puis S (SAVE) en donnant le nom ‘‘COPY- 
DIM''. Puis Q pour quitter. 

Ceci fait, chargez POKEDIM. Il vous demande l'adresse départ puis le 
nom du fichier à lire (‘’COPYDIM""). Le programme binaire est alors poké 
en RAM. L'écran vous affiche l'adresse départ et la longueur en octets. 
Notez bien ces valeurs par écrit ; elles seront indispensables plus tard 
pour enregistrer ce programme binaire sur d'autres cassettes ou dis- 
quettes. Pour la sauvegarde en binaire, il vous demande un nom (un 
autre), disons ‘’HARD9FOO''. 

Remarquez l'astuce qui consiste à inclure l'adresse départ (pour le CALL) 
dans le nom d'un programme en langage machine. 

Si vous avez une imprimante (autre que la DMP-1), essayez-le par CALL 
&9F00. 


CONCLUSION 


Avec ces petits programmes utilitaires en Basic et ces quelques notions 
générales, vous êtes à présent opérationnel pour profiter (enfin !) des 
listings en Assembleur ; même sans le pratiquer ni le comprendre ; il 
ne vous impressionnera plus. 


18 ‘MACHDIM : CHARGEUR DE FROGKRAMME EN LA 
NGAGE MACHINE EN DIM 

26 ‘ ANSTKRAD CPC / Michel Archambault 19 
85 

T8 OFENOUT "BIDON'": MEMORY HIMEM-1:CLOSED 
UT 

40 DEFINT J,E,V:DIM F{:008),V{(=000) 

SG MODE 1:CLS:HKHORDER 146 

SG FEN ZS:LOCATE 6,4:FRINT MISE EN DIM D 
E FROGRAMMES EN" 

78 LOCATE 11,6: FRINT "EN LANGAGE MACHINE 


SG FEN 2:LOCATE 8,9:FRINT "Michel Archam 
bault — 1985" 

18G FEN 2:LOCATE 2Z,Z0:FRINT "Si en HEXAD 
ECIMAL faites preceder de £&":LOCATE 10,7 
2:PRINT “puis QUATRE caracteres." 

118 FEN 1:LOCATE 8,15:INPFUT "ADRESSE DEF 
BRT : ",86D# 

12@ IF LEFT#({AD#,1)="8&" THEN AD=VAL("&"+ 
RIGHT# (AD£ , 2) )+2S6#VAL (LEFT (ADE, Sd): 1F 
LEN(AD#)<:S THEN AD=0:G0OTO 118 
150 IF ÀAD-G THEN £D=VAL(AD#) 
1B8@8G ‘ ECRAN DE SAISIE 
181 WINDOW #9,1,22,6,25:CLS:WINDOW #1,1 
322351,4: PAPER #1,1:PFEN #1,@:CLS #1 
1@28 LOCATE #1,5,2: PRINT #1, "ADRESSE"; SF 
C4); "VALEUR" 

1@:@ LOCATE #1,3,3:PRINT #1, '"deci";SFC(4 
ji; "hexa" 
1G48 WINDOW #2,27,49,1,1B8:PFAFER #?,27:FEN 

#Z,B:CLS HE 
185@ LOCATE #2,2,2:PFRINT #2," ADRESSE DE 
ee 
1U60 LOCATE #2,3,2:PRINT #2 ,USING "H#HHRH# 
"AD: : PRINT HZ,SPCUZ "8"; HEXE CAD) 


107G PRINT #2,STRING#(IS," "): FENKZ,Z5:FR 
INT #2," Valeurs en DIM":FENK2,@:PRINT 
#2 
1880 PRINT #2," 
1ASQ@ FRINT #2," 
1190 PRINT #2," 
1118 FRINT #2," 
1120 FRINT #2," 
1120 PRINT #2," = SAVE" 

114@G FRINT #2," = CALL”" 

15A OFTH="GEVILSC" 

1160 PRINT #2,STRING#(18," 0 #) 

1170 WINDOW #3,27,40,19,40:FAFER HS,Z2:FE 
N HZ, Z3:CLS HZ 
ZAR ‘ SAISIE 

EQ18 A=8D:J=1 
ZO20 FRINT USING "HHHBHH!": A: 2: PRINT SFC(4 
3 RIGATE("GBG"4HEXE (A) ,4): SFCIT); 

2A:Q E=@: INPUT PM ,VÆs IF VE="" OR LEN(VE#) 
22 THEN PEINT CHR#({7):G0OTOQ 078 
2048 1F LEN(V#H)I=I THEN E=INSTR(OPTE,V#): 
ÎF E=@ THEN FRINT CHPR£E(7):GOTO 7@27û 
2050 IF FE THEN ON FE GOTO 7020,4000,S@00, 
£AGG, 408,008 ,9800a0 
2060 IF LEFTH(IVE,1)È"FS OR RIGHTH(VE,1) 5 
PET THEN FRINT CHR#{7):GOTO 7@z2 
247G V=VAL(MRN4HUE) 
Z@99 FiJ)=8:VETiZ=V 
LAFA A=k+i:]=J+1:SOTC 7078 
3808 ‘QUITTER 
281 CLS HI: LOCATE #5,7,23: INPUT #Z,"ON & 
RRETE (CO/N) ",0# 
2028 IF O#$="0" THEN MODE 1:CiG:RORDER 1: 
END 
TAG IF CGEZ="'N" THEN ZDSB 
FAQ FRINT CHRE(Z7)::GOTO ZG10Q 
SASA CLS #7: GOTO 2478 
AGGR ‘ ERREUR 
4816 CLS HZ:LOCATE HI,6,2:PFRINT #S,'ERRE 
UF: " 
4B20@ LOCATE #Z,ZS, 4: PRINT #2,'"ôdresse DEC 
En 
AGEQ LOCATE #Z,3,é6s: INPUT HT, 96, SEX: BEZ=UVR 


= Quitter." 

= Erreur." 

= Vision." 
Impression. 
= LORD" 


OUI Te M © 
Il 


L(AE#):IF AE£AD THEN FRINT CHR#(7) 3; :GOTO 
40950 

4040 PRINT USING "HHHHHH": AE; :FRINT SFC( 
45: RIGHTS ("QGBG"+HEXE (AE) ,4) ; SFC CZ) ; 

ABSG INPUT "Y,VÆ:IF LENCV#)<2:;2 THEN PFRIN 

T CHR#({7)::GOTO0 4040 

AG6Q IF LEFTHIVE,1) SF" OR RIGHT#E(VE,1)5 
°F THEN FRINT CHR#(7):;:GO0OT0 4040 

4@78 V=VAL ("EU+UVE) 

4088 JE=RE-AD+1:V{JE)-=V 

4R9Q IF FVIS THEN FVIS-0:GO0TO ©5088 

4100 CLS #=:GOTO 2020 

S40B ‘VISION 

5010 CLSHZ:LOCATE #5,5,2: INPUT #3,"VISIO 
NO TCO/N) ",OÆ#:IF CGÆ="N" THEN 5140 

2020 IF QH<:"0" THEN 5810 

5038 CLSHS:LOCATE #5,2,2: FRINT #5,'"Adres 
se DEPART" 

S@48 LOCATE #2,27,4: INPUT #3,'en DECI:",4 
VE: AV=VAL LAVE) 

S0SQ IF AVEAD THEN FRINT CHR#(7):;:GOT0 5 
Ga@ 

5068 CLSHZ:CLS:FOR I=AV TO AV+19:KH=I1-AD+ 
1 

50780 PRINT USING "#H#H#H#H": PIE): : PRINT SF 
C4) ;RIGHT#("GGQ"+HEXE(P(E)),4):; SPC) R 
IGHTE(C"Q"+HHEXE (VIE) ),2):NEXT:AV=AV+20 
2080 CLSREZ:LOCATE H#5,2,2: PRINT #5,'"Suite 
Erreur ,Fin” 

2090 LOCATE #5,5,4: INPUTHS,"(C S/E/F ) " 
Q+ 

Si00 IF G+F="S" THEN 52460 

118 IF Of="F" THEN 514% 

Si20 IF ODH='E" THEN FVIS-=1:G0OTO 4000 
51:90 FRINT CHR#(7)::GOTO 5080 

9148 CLS#HZ:CLS:GOTO 7a70 

6088 ‘ IMFRESSION 

6010 CLS HS:LOCATE #5,2,2: PRINT #5,"IMPER 
ESSION: " 

84828 INPUT #3," { OZN ) ",$O#:IF OF="N" 
THEN 6870 

SAEQ IF GH£5:"O0" THEN FRINT CHR#(7)::GOT0O 
6808 


3 
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6048 FRINT #9,CHR#(27): CHREÆ(64) : FOR 1=1 

F9 di 

6050 FRINT #B8,USING "HHHHHH "3: FCI): : PRINT 
#8," 2: ";SRIGHTE("OGOG"+HEXHE(F(I)),4):" — 
MIRIGHT#E("Q"+HHEXE(V (I) ),2) 

6968 NEXT 

£A7R CLSHS: GCOTO 207 

-@8@ ‘LGAD 

781@ CLSHZ:LOCATE #35,2,2: INPUT #5, '"LOfD 
ON D" ,CE 

7GU2Q IF CÆF="N" THEN 71278 

78:Q@ IF O#<5:"0" THEN 7000 

7040 LOCATE #=,2,4: INPUT HZ, "NOM: "FICHE 

78050 IF FICH#="" THEN PRINT CHR#(7)3::GOT 

Q 7@40 

7BRSQ FICHE=LEFTE(FICHE,8) 

707@ J=G:OPENIN FICHE 

7@80 J=J+1:I1F EOF THEN 7108 

7890 INPUT #9,F(J),V(J)i:GOTO 7080 

FiB@@ CLOSEIN 

7110 A=F(JI-1)+1 

7120 CLSHZ:GOTO Za204 

88808 ‘SAVE 

BQ1R CLSHZ:LOCATE #5,2,23: INFUT #35,"GSAVE 
€ O/N ) ",0# 

BQ270 IF O#="N" THEN 999û@ 

BASQ IF O#<5:"0" THEN 8060 

2040 LOCATE #2,27,4: INPUT #3, '"NOM:" , FICHE 

8050 IF FICH#="" THEN FRINT CHRE(7):;:GOT 

C 8048 

806 FICHE=LEFTÉS(FICHE,8) 

8070 OFENOUT FICH# 

8080 FOR 1=1 TO J-1:WRITEH9,PF{ID ,VECI):NE 

XT:CLOSEOUT 

8090 CLSH::GOTO 2028 

9Q00 ‘ESSAI DE CALL 

FQ1Q CLS HZ:LOCATE #2,2,4:INPUT #3,"ESSA 
I CALL CO/N) ",C# 

FA2Q IF OF="N" THEN 970350 

9050 IF O+<5;"0" THEN PRINT CHR£#(7):;:GOTO 
7000 

0040 FOR I=i TO J-1:POKE FI) ,V(I):=:NEXT: 

CALL AD 


FASG CLSHZ:SOTO 7@7àa 
980868 ‘--- FIN DE LISTINS —-—— 


VARIABLES DE MACHDIM 


— À : ADRESSE EN COURS 

— ÀAD,&6D# : ADRESSE DEFART 

— SE,AE# : ADRESSE DE L'ERREUR 

— Ê£F,8FE : ADRESGSE FINALE 

— BV,AVE 2: ADRESSE DEPART VISION 

— DIM PCSGAG) : TABLERAU DES ADRESSES 
— DIM V(:GQ@) : TABLERU DES VALEURS V 
— FICHE : NOM DU FICHIER EN ASCII 

— FVIS 3: FLAG DE VISION 

sU,E : INDICES DE COMFTAGES 
INDICE DE L'ERREUR 

LONGUEUR DU FICHIER 

REFONSE À UNE QUESTION 

: VALEUR DE L'OCTET SAISI 


A présent le programme final : POKEDIM. 


19 ‘POFEDIM:PFOEAGE D'UN FICHIER ASCII CR 

EE FAR MACHDIM 

28 ‘AMSTRAD CPC / M.Archambault 1985 

:@ OPFENOUT "BIDON'": MEMORY HIMEM-—-1:CLOSEO 

UT 

48 CLS: INPUT'ADRESSE DEPART ({& où deci) 
"SADE:IF LEFTH(AD#,1)="2" THEN AD=VAL{LE 

FTECADF,2)) #256+VAL CPL U+RIGHTE(ADE,7)):G 

OTO 44 

58 6D=VAL{ADH) 

6A IF AD£1 THEN 48 ELSE IF AD<HIMEM THEN 
MEMORY &6D-—-1 

7@ CLS: INPUT'NOM DU FICHIER:",FICHE 

8G OFENIN FICH#:J-@G 

SQ J=J+i:1F EO0F THEN 120 

188 INPUTH9,A,V:IF J=1i THEN AD=A 

118 POKE À,V:GOTO 9@ 


«a 
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129 
1:@ 
148 
150 
168 
170 
} 
13 
i70 
Ann) 


CLOSEIN 

L=J-1 

FRINT "NOTEZ pour "3FICH#;" 2" 

PRINT " Adresse DEFART="; AD 

FRINT Lonqgueur=";l 
FRINT:INEUT " SAVE en HINAIRE 7 (O/N 
DÆ: COE=UFFERE (D#) 

IF Qf="0" THEN 208 

IF ODHF<E"N" THEN 174 ELSE END 

FRINT: INFUT°NOM DU FICHIEK{ou ENTER) 


2" ,NOM# 


218 
22@ 


270 


IF NOM$="" THEN NOMS=FICHE# 
SAVE NOM+F,B,AD,L:END 
‘FIN DU LISTING----—- 


Chapitre V 


LES CARACTERES GRAPHIQUES 


On est quelquefois amené à créer des caractères spéciaux qui n'exis- 
tent pas sur l'AMSTRAOD, lettre grecques, symboles liés à une certaine 
science, quand il ne s'agit pas d'éléments graphiques à juxtaposer pour 
faire un ‘‘logo tape-à-l'œil'", ou une petite animation simple en mode 
texte (voir MPSA chapitre XIV). Certains linguistes ont même redéfini 
toutes les touches afin de pouvoir écrire en langues non romaines (grec, 
hébreux, russe, idéogrammes, etc.). 

Définir un caractère et son codage pour la commande SYMBOL n'est 
pas très compliqué (MPSA page 76), mais s'il ÿ en a beaucoup, cela 
devient vite fastidieux. Un exemple : les six caractères français de la 
routine ‘’AZERTY'" du chapitre Il de ce livre. 

Le programme ‘’DEFCAR'" que nous vous proposons a été conçu pour 
gens pressés et n'aimant faire aucun calcul. 

Le second problème, rarement abordé, est de reproduire ces motifs sur 
imprimante ! DEFCAR le fait aussi et tout aussi automatiquement. 
Quant au tracé de votre caractère spécial, vous le dessinez et corrigez 
à l'écran à l'aide du joystick. 


RAPPEL SUR LE CARACTERE GRAPHIQUE 


Chaque caractère de l'AMSTRAD (lettres, etc.) est défini par une grille 
de huit carreaux sur huit. Les carreaux couleur PEN ont la valeur 1, les 
autres zéro. 

Chacune des huit rangées horizontales de notre caractère est donc une 
suite de 1 et O. Considérons que c'est un nombre en écriture binaire, 
que l'ordinateur sait bien sûr convertir en décimal et vice-versa. Cha- 
que rangée horizontale est définie par un nombre. Le nouveau carac- 
tère sera mis en mémoire par l'instruction SYMBOL, suivi du code ASCII 
choisi et de ces huit nombres. 

Pour reproduire ce motif à l'écran, le CPC va dessiner ces huit images 
binaires les unes sous les autres. 
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Que ceux qui sont un peu ‘‘perdus'" fassent ce petit essai : 
PRINT BIN$(102,8) 


on obtient 01100110 
A présent, l'opération inverse : 


PRINT &X 01100110 
on a bien 102. 


LE CAS DE L'IMPRIMANTE 


Contrairement à l'écran qui trace ses petits points (‘‘pixels'’) de gau- 
che à droite, puis de haut en bas, la tête d'impression de notre impri- 
mante frappe des colonnes verticales de points, en se déplaçant de gau- 
che à droite | 

Il va donc falloir envoyer à l'imprimante les ‘’images binaires’ des huit 
colonnes verticales de notre caractère, de gauche à droite. En somme, 
c'est le même principe, mais dans l'autre sens. 

Pour imprimer des caractères usuels (A, B, C, etc.), l'imprimante à ces 
codages dans sa ROM ; on lui envoie le code ASCII et elle se charge 
de dessiner le caractère. Il faut ici la prévenir qu'il ne s'agit pas de codes 
ASCII, mais d'images binaires, c'est la commande ‘‘Bit image'' (que 
ne possédait pas la DMP 1) : CHRS(27);''K'". 

La syntaxe de cette commande est assez lourde. Pour chaque carac- 
tère à imprimer, il faudra écrire : 


PRINT #CHR$(27);"K'":CHR$(8);CHRS (0) 


suivi de nos huit nombres ‘’dans'’ des CHR$. Une terrible corvée d'écri- 
ture ? Mais non, si l’on utilise quelques astuces que nous décrirons plus 
loin. 


LE PROGRAMME DEFCAR 


Avant de le décortiquer, voyons d'abord le mode d'emploi. 

— On vous demande si l'imprimante est prête. Si vous n'en possédez 
pas, répondez bien sûr ‘’N"'. 

— Dans l'angle en haut à gauche apparaît une grille 8 x 8. Dans l'un 
des 64 carreaux clignote un point rouge ; c'est notre curseur, que 
vous déplacez à l’aide du joystick dans ses huit directions. 

— Pour ‘’noircir'’ un carreau, c'est FIRE. 

— Pour effacer un carreau, c'est la barre d'espacement. 

— Lorsque votre dessin est terminé, tapez la lettre ‘‘Q'" pour quitter. 

— On vous demande alors à quel caractère du clavier vous voulez l'at- 
tribuer. Vous pouvez indifféremment répondre par le caractère ou 
par le code ASCII (de 32 à 255). 

— Cas sans imprimante : l'écran vous demande de noter les paramè- 


tres qui devront suivre la commande SYMBOL. Avec imprimante, 
ces résultats sont seulement imprimés. 

— A l'écran apparaît le code ASCII du caractère demandé et sa nour- 
velle représentation, grandeur nature cette fois. 

— Avec imprimante, le nouveau caractère est imprimé, ainsi que les 
huit paramètres pour imprimante (codage vertical). Trait de 
séparation. 

— L'écran vous demande si vous voulez redéfinir d'autres caractères. 
Si vous répondez non, CLS et l'écran vous conseille de faire un 
CTRL+SHIFT +ESC (ou un CALL O), car les touches définies res- 
tent actives même après un RUN ! 


NOTE : En option imprimante, il apparaît à l'écran un astérisque rouge 
en face de la rangée supérieure de la grille. Cela signifie ‘‘interdite'" car 
elle ne sera pas reproduite sur papier. En effet, l'interface imprimante 
de nos CPC est malheureusement une 7 bits et non une 8 bits (par 
mesure d'économie du constructeur). 


RESUMONS : On dessine avec le joystick et on a tout de suite après 
les résultats graphiques en vraie grandeur sur écran, sur imprimante, 
avec tous les paramètres calculés pour les transcrire dans vos 
programmes. 


À présent, voyons quelques détails Basic : 

Ligne 30 : Les codes ASCII redéfinissables seront égaux ou supérieurs 

à 32 (barre d'espacement). 

— Ligne 60 : FIMP est un ‘‘flag'’ qui est à 1 si l'imprimante est prête. 

— Module 600 (grille) : Nous utilisons le ‘’mode transparent‘ CHR$(22). 

— Module 100-290 (joystick) : La valeur renvoyée par la fonction 

JOY(O) est la mise en binaire à 5 chiffres (ligne 120), d'où modifica- 
tion des coordonnées verticale et horizontale V et H (lignes 130 et 
140). Pour les détails, voir MPSA page 131. 
Les lignes 150 et 160 empêchent le curseur de sortir de la grille. 
Le CHR$(233) est un petit carré plein, alors que le CHR$(144) est 
un point centré (notre curseur). F est le témoin d'appui sur FIRE. Le 
bouclage du cycle provoque le clignotement de la case du curseur. 
Les lignes 230 et 270 sont des ralentisseurs pour mieux contrôler 
le joystick. 

— Module Résultats (lignes 300 à 450) : On supprime d'abord le mode 
transparent. Pour le comptage horizontal, on utilise la fonction TEST 
qui donne 1 pour une case noircie. En 350, l'image binaire est recons- 
tituée par concaténation, puis traduite en décimal en ligne 360 et 
mise en DIM CH. 

En 400, on vérifie s’il s'agit d'un caractère ou d’un code ASCII. Exé- 
cution du SYMBOL en 420 et affichage des résultats. 

— Module Imprimante (700 à 830) : On procède de la même manière 
au comptage vertical. En 760, on imprime les paramètres des comp- 
tages horizontaux (SYMBOL) et verticaux, le caractère d'origine, son 


45 


code ASCII et sa nouvelle représentation (780-790). 
— Final (ligne 490) : En efface le BORDER et on vide le buffer de l’im- 
primante, car on avait confirmé les caractères USA en ligne 60. 


‘18 


2€ 
2@ 
40 
LL 
E— 
&4 
7 3 
FA 
2 
50 


Ha 
= 


Lis 


| 


Le 


11 


bee foot jh pete 


Be id 
nn] 


+13 
15 
ii 
ië 
1@ 
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18 
19 


SA IF H£4 THEN H=4 El 


DEFCAR -— REDEFINITION DE CARACTERES 
SUR ECRAN ET IMPRIMANTE — M.4.-84 

MODE 1:BORDER 9:DEFINT 4-Z 

SYMEQOL AFTER 22 

CLS 

LOCATE 4,1@:FRINT "L'IMPRIMANTE EST-E 
E PRETE T(O/N)":O#$=UFFERY(INEEY#):IE © 
"# THEN SD 

IF Df="0" THEN FIMP=1:PRINT #5,CHR# (7 
: CHRE (64) ; CHRE (27): "R°: CHRE (D): GOTO 8 
IF G$<+"N" THEN 49 

CLS: GOSUR 400 

IF FIMF THEN LOCATE Z,3:FEN Z:FRINT"+ 
FEN 1 
AE 
a 





… (Ÿ 





3 


A IF VEZ THEN V=Z ELSE IF VriW THEN V= 


7A F=VALILEFTÉ(RE,10)) 


@ T=TEST(Hx146-4,4@8-Vx16) 


FR IF T THEN PEN GiLOCRTE H,V:PRINT CHA 


FC2Z 


28 
T 

21 
HR 


233) :PEN 1 


R IF CE=" " THEN FEN G:LOCATE H,V:PFRIN 
CHRE CDTI): PEN ii: T=f 
D IF T=P THEN FEN Z:EOCATE H,VePRINT € 


F{144j2:FEN 1 


220 IF F=1 THEN LOCATE H,V:PRINT CHR$ (23 
3): T=1 
210 FOR I=1 TO 1SG:NEXT 


74 


BG IF T THEN LOCATE H,V:PRINT CHR# (ZT: 


Z50@ FRINT CHR#(22) .CHRS {ai 


26Q IF T=G THEN LOCATE H,V:PRINT #8 

278 FOR I=i T0 BU: NEXT 

288 GOSUE £a 

296 GOTC 118 

388 ‘ RESULTATS 

518 FRINT CHRE(ZEZ): CHR ID): 

228 COMPTAGE HORIZONTAL 

35Q FOR N=1 T0 B:V=N+2:E#="" 

248 FOR H=4 TO ii:B=TEST'H#ié6é-4,408-Vx16 
L 

ZSA RF=HE+RIGHTEISTRE(E) ,1) 

568 NEXT: CHEN) =VAL C"EX"4+EH#) 

E78 NEXT:IF FIMF THEN 490 

38 LOCATE Z,12:PFRINT "NOTEZ SON CODAGE 
2": PRINT 

2986 FOR I=i TO F:FRINT CH{I)3:NEXT:FRINT 
CH{@) :FRINT 

48 LOCATE 2,16:INPUT "OUEL CARACTERE 7 
MEÆ:K=ASC(E#)SIF VAL(E#) 321 THEN E=VAL it 

EH) 

418 LOCATE 25,16: PRINT "é="sks "li" 

420 SYMEOL KH,CH(1),CH(2) ,CH(S) ,CH(A4) ,CH( 
2) ,CHié) ,CH{73 ,CH(8) 

4:@ LOCATE 2QG,i6:FRINT CHR#(E) 

448 i OCATE 22,16: PRINT MC ="sEs") 5 
3 CHRE (KE) 

4S5@ IF FIMF THEN GOSUE 700 

A46@ LOCATE 1BG,20:FRINT "AUTRE CARACTERE 

PIOD/N)":OEFE=UPPERES(INEEY#H) IF QH£="" THEN 

4868 

A7A IF Q+F="0" THEN CLS:GOTO 80 

ASG IF OD#<>"N" THEN 469 

498 ECRDER 1:CLS:1F FIMF THEN FRINT #8,C 

HRE (27): CHRE(SA); 

SAR PRINT MRe-initialisez le CFC pour ef 

facer les SYMEOL qui resterasient actifs 
: "PRINT 

914 END 

488 ‘GRILLE 

Li PRINT CHRE(22): CHR# (1) ::" MODE TRANS 

FARENT 

£EG FOR I=248 TO 368 STEF 16 

8358 FLOT 48,1,2:DRAWR 128,@,Z:NEXT 
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&A4R FOR I=48 TG 176 STEF 18 

850 FLOT Pete PA DR OUr B,120:NEXT 
£ésB LOCATE 29,23: FRINT "EFFACE= ESPACE" 
&7@ RETURN 

786@Q “COMNFTAGE VERTICAL 

718 FOR N=1 T9 SG: H=N+ZS:HE="" 

F28 FOR V=Z TO 1@0:H=TEST(Hrié-4,400-Vx16 
4 

730 HRF=BE+RIGHTHEISTEZH(E) ,1) 

74B NEXT:CV(CNI=VALCNEXM+EE) 

756 NEX7 

768 ‘ IMPRESSION 

778 PRINT #GS,CLETITRE "ik#s".CODE ASCII" 


F5 Rss 

780 FRINT #9, CHR (27) 5 "Es CHR CB) : CHRS (D 
js 

790 FOR I=i TO S:PRINT HO. CHR#4OV(I))seN 

EXT:PRINT #8 | | 

QUC FRINT HO," SYMEOL":K:: FOR I=i TO B:PR 
INT #P,","3: CHI) ::NEXT: PRINT #6,CHR# (12) 
G10 FRINT #8,"CODAGE VERTICAL: ":: FOR I=i 
TO B:PFRINT #8, VII) ::NEXT:FRINT #0,CHR# 
t 1 75 

20 FRINT #8 STRINGE(ED, 0) 

820 RETURN 

DOUÉ es ÉTN DE ETS T INC sue 


Comme vous le constatez, c'est un peu moins simple que le mode d'em- 
ploi... Mais heureusement, le Basic de l'AMSTRAD est très rapide, rapi- 
dité doublée par le DEFINT de la ligne 20. 


LA PRATIQUE DE L'IMPRESSION DES CARACTERES 


La syntaxe du ‘’bit image’ étant lourde, il ne faudrait pas qu'elle sur- 
charge nos listings ; il sera alors pratique de définir une chaîne BI$ qui 
la ‘résume’. Programmez : 


BI$ = CHR$(27) + ‘’K'"+CHRS$S(8) + CHRS(O) 
Idem pour nos huit paramètres du caractère défini CV(1) à CV(8). 


CD$ =" "FOR 1=1 TO 8 
CD$ = CDS + CHRS$S(CV(ND):NEXT 


À chaque fois que nous voudrons imprimer notre caractère défini, il suf- 
fira d'écrire : 
PRINT #8, BI$;CDS$ 


Bien raccourcie l'écriture ; non ? 


On complique : 

Vous avez redéfini toutes les lettres minuscules de a à z (codes de 97 
à 122), soit 26 CDS$ que vous allez mettre en DIM CD$(26) ; lequel 
a été rempli par des READ sur des lignes de DATA où figurent les para- 
mètres (codes verticaux). (Voir MPSA chapitre 12). 

Le caractère à imprimer est défini par son indice, exemple CD$(3) était 
jadis le c minuscule. 

A l'écran, vous avez tapé une chaîne A$ avec des caractères bizarres 
{ils ont conservé leurs codes ASCII), et vous vous voulez imprimer A$. 
L'astuce est que l'indice des CD$, c'est le code ASCII moins 96... 


410 FOR 1=1 TO LEN(AS$) 
420 N=ASC(MIDS(A$,1,1)) —- 96 
430 PRINT #8,BI$;CD$S(N);:NEXT:PRINT #8 


Et voilà le travail ! En 420, on analyse A$ caractère par caractère afin 
d'en extraire le code ASCII. Attention, il ne faut pas de blancs (code 
32) dans A$, sinon inclure un IF qui fera imprimer normalement cet 
espace. 

Imaginez les dizaines de lignes Basic qu'il aurait fallu taper si on n'avait 
pas cogité pour trouver des astuces pour simplifier. 


SYMBOL AFTER ET LA MEMOIRE 


La réservation mémoire pour les SYMBOL par SYMBOL AFTER est assez 
gourmande. De ce fait, vous avez intérêt à utiliser des codes ASCII les 
plus élevés possibles, afin que le SYMBOL AFTER soit le moins bas pos- 
sible. Par défaut, il est à 240, donc inutile de le mentionner pour les 
codes ASCII de 240 à 255. 

Savez-vous qu'en mettant SYMBOL AFTER 256 (pas de SYMBOL pos- 
sible), on récupère ainsi 128 octets ? En affichant SYMBOL AFTER 32, 
on se prive de (256 -32)x8=1 792 octets... À méditer. 

La zone réservée par cette commande n'aime pas qu'on la dérange, 
soit par un MEMORY, soit par une routine en langage machine qui vien- 
drait empiéter sur elle. Voilà pourquoi il faut toujours programmer le 
SYMBOL AFTER en tout début de programme, surtout pas après avoir 
abaissé le HIMEM par un MEMORY. 
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Chapitre VI 


LES HISTOGRAMMES 


Les histogrammes sont ces représentations ‘’en buildings'”, ces colon- 
nes à plusieurs tranches, de différentes hauteurs, très usitées dans les 
revues d'économie : Ou bien chaque colonne (ou barre) représente un 
pays, divisé en plusieurs rubriques superposées, ou bien c'est l'inverse, 
une colonne par rubrique où s'embpilent les quota de chaque pays. 
On les appelle aussi ‘diagrammes en barres'’. Les plus simplistes, à 
éviter, sont des barres horizontales de longueurs variables. Ensuite les 
verticales, de simples rectangles plus où moins hauts, très triste. 
L'histogramme à la mode est en ‘‘trois dimensions'', c'est-à-dire en 
perspective latérale plongeante. Traduisez par ‘vu d'en haut et de 
côté'’. Cette vision en volume et bien plus sympathique, donc adop- 
tée. Tout logiciel présentant des histogrammes ‘‘plats’’ est tout de suite 
déconsidéré, ça fait bâclé. Vous savez donc ce qui vous attend, du 
‘’3D"" et rien d'autre... 

Il ne serait pas réaliste de vous proposer un logiciel spécial histogram- 
mes dans lequel vous entreriez toutes vos données, nombres de colon- 
nes, de rubriques, valeurs numériques à représenter, légendes, etc. En 
effet, c'est généralement un sous-programme dans un logiciel de cal- 
cul (statistiques, comptabilité, etc.). Donc à concevoir ‘‘sur mesures’. 
Le programme HISTO3D que nous vous proposons est plutôt une 
démonstration ; vous avez peu de chances de pouvoir l'utiliser tel quel 
dans une application pratique. Son but est de vous apprendre à en 
construire un, adapté à votre problème. C’est dire que nous allons expli- 
quer comment nous avons calculé tous ses paramètres, car vous aurez 
à faire les mêmes calculs... 

Nous vous invitons tout d’abord à taper ce très court programme, sans 
les REM, voire même en vous dispensant des lignes 400 à 460, mais 
avec les lignes 500 à 530. 
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10 ‘ HISTOSD-DEMO HISTOGRAMME - M.4.84 
2@ MODE 1:BORDER 9:DEFINT A-Z7 

30 DIM F(3,5):° = POSTES SUR 5 HRARRES 
AB ‘REMFLISSAGE DES DIM 

SA DATA 100,50,48,:0,705 

62 DATA 100,100,:9,150,47 

7A DATA 100,50,80,40,:8 

82 DATA FRA,USA,JAF,ANG,FFA 

90 DATA BEAUJOLAIS, BORDEAUX, DIVERS 
100 FOR R=1 TO Z2:FOR N=1i TO 5 

11 READ FIE NY =NEXT:=:NEXT 

120 FOR Q S:READ FAYSE(I):NEXT 
1TA FOR TO Z:READ VIN#{I):NEXT 


I=i 
I=i 

EGA ‘ TRACE DES HISTOGRAMMES 
G 


12 « 


Z1Q N=Q:R= 
P2P6 FOR XÉ=Z 


Q T9 Sig STEF 172:N=N+iji:" Les 
ay 


5 berres pays 
PIR GRY=SA: " Oriqine Ÿ 
238 FOR Fzi TO Z:° Les Z rubriques vins 


SG FOR Y=ORY TO FER ,N)+ORY STEF Z2:° Lec 
re des valeurs 
268 PLOT KX,V,R:DESUR 76,2%: DRSWNR DT,ZTU:NE 
XT:ORY=V:" Trace d'une rubrique 
Z7A HEXT 
83 SKk=XPOC:SY=YPOS:  Menoriss curseur 
296 FOR I-=Q TO ET STEF Z:PLOT SX-T,SY-I1: 


î 


DRAUR —7@,@: MEXT: " Dessu 
208 PLOTR Z5,40,1: TAG: FEAT 
GOFF: ° Affichage pays 

312 FLOT SX,SY, B:ODRAWR —-27,-22:DRAUWR -—-70 


MOVER 7A,BG:DESAW GSY-275,594:" Iracz des 


des barres 
NT PEYSE(N)::TA 


nu 
LU 





HEXT 
a LOCATE 7,724:EO0R Bei T0 Z:PEN R:FRINT 
VINE(R):" "ss NEXT: PEN 
48 ‘ AFFICUAGE DES QUANTITES 

ATD N=B:FOR X=55 TO 547 STEF 172: N=N+i 
4ED TOT=G:FOR R=i TO 2: TOT=TOT+P(E-1 ,N) 






[ES 


AAB Y=SB+TOT4+F IE, N)/Z 


AS@ LOCATE */14,(400-Y+8) /16: PAPER R:FEN 


B:PRINT USINC'RKHEM: FER. NN) 


488 NEXT:NEXT 


SOC ‘ FINAL 


ï 


: 


on 


Si CAL SERRE 
J26 PÉPER G:PEN 1:BORDER 1:CLS 


526 END 


SD FIN DE LISTING —-------- 


PETIT DESCRIPTIF DU PROGRAMME 


Nous voulons représenter la consommation de vins français dans cinq 
pays : Beaujolais, Bordeaux et Divers (= 3 rubriques, où postes). Les 
nombres utilisés pour cet exemple sont complètement bidon (si j'ose 
dire... ).. 

Pour chaque colonne, nous aurons de bas en haut : Beaujolais en jaune, 
Bordeaux en bleu ciel et Divers en rouge : le numéro de rubrique est 
donc le numéro de PEN. 

Chaque colonne est surmontée par sa légende, le nom du pays en trois 
lettres. En bas de l'écran, les rubriques (vins) sont légendées dans leur 
couleur (nous sommes en MODE 1). 

Pour donner du relief, les arêtes de nos ‘‘’buildings'’ sont soulignées 
dans la couleur du fond (bleu foncé). 

Dernier gadget : chaque bloc est légendé par sa valeur numérique (en 
PRINT USING). La durée totale du tracé est de 10,8 secondes. L'effet 
final est assez plaisant et n'a rien à envier à ce que l’on voit dans la 
presse. 


LE PROGRAMME 
On attaque la partie explicative. 


Les valeurs numériques 

Elles sont mises en DATA afin de garnir un tableau DIM P(5,3). On 
appelera N le numéro de pays (1 à 5) et R le numéro de rubrique (de 
1 à 3). On remplit de même DIM PAY$(5) et DIM VIN$S(3) (lignes 
120-130), non définis puisqu'inférieurs à 10. 


La progression horizontale X 

Sur l'axe des X, on dispose de 640 points. L'espace entre les colonnes 
(et le BORDER) sera de 30 points, soit 30 x (5 + 1) — 180. Il reste pour 
les colonnes 640 —- 180 =460 points, divisés par 5-92 points par 
colonne, que nous répartissons ainsi : 70 points pour la largeur de la 
‘’façade'" et 22 points pour le flanc droit. 

Le pas inter-colonnes est donc de 92 +30 = 122. 

Expliquons la ligne 220 ; Notre tracé commence à X = 30 (colonne 
n° 1), ceci fait nous aurons quatre sauts à faire pour arriver à la colonne 
n° 5, donc une progression de 4x 122 =488. En partant de X = 30, 
nous irons jusqu'à 488 +30 =518 au pas de 122. OK ? 


La progression verticale Y 

Sur l’axe des Ÿ on dispose de 400 points. Laissons des marges de 50 
en bas, 50 en haut, nos colonnes ne devront pas dépasser une hauteur 
de 300 points. Voilà pourquoi le total des valeurs dans nos trois rubri- 
ques ne dépasse pas 300. Dans la réalité, vous traiterez vos valeurs 
réelles par un facteur multiplicatif afin qu'un total ne dépasse pas 300 
‘‘points'’. Dans notre exemple, on n'a pas compliqué inutilement. 
Les traits obliques qui vont dessiner les flancs de colonnes ont déjà une 
largeur de 22, ils monteront également de 22 points. En effet, en MODE 
1, tout trait oblique qui n’est pas à 45°, apparaît un peu en marches 
d'escalier, et c'est moche ! 

ORY est l’origine Y de chaque rubrique ; au départ, elle est bien sûr 
à 50 (ligne 230). 

L'écran vidéo fait en réalité 200 lignes et non 400 ; progresser vertica- 
lement avec un STEP de 1 ferait tracer les traits deux fois sur eux- 
mêmes, d’où un temps double. La progression en Ÿ sera donc avec 
un STEP de deux points (ligne 250). 

Dès qu'une rubrique est terminée, ORY prend la dernière valeur de YŸ 
(ligne 260) avant d'attaquer la rubrique suivante. 


Le tracé des colonnes 

Le motif tracé est un trait horizontal largeur 70 plus un trait oblique 
de 22,22. Avec empilage vers le haut. La couleur du trait est la valeur 
de R, fixée dans le PLOT X,Y,R de la ligne 260 ; inutile de le répéter 
pour les DRAWR qui le suivent (ca ralentirait). 

A la fin de la dernière rubrique, seuls la facade et le flanc de la colonne 
sont tracés ; il reste à tracer le ‘’couvercle’’, les arêtes et la légende 
de la colonne ; alors on mémorise les coordonnées du curseur {ligne 
280) ; c'est le point en haut à ‘‘l'arrière’’ droite. 


Le tracé du dessus de colonne 

Tout est dans la ligne 290. On trace des traits horizontaux de longueur 
— 70 en descendant à partir du trait supérieur oblique. Le curseur est 
alors dans l'angle en haut à gauche sur la ‘‘façcade”. 


La légende pays (ligne 300) 

On passe en TAG. Rappelez-vous qu'en MODE 1 un caractère en mode 
texte représente un carré de 16 x 16 points graphiques. En TAG, le 
curseur graphique se place en haut à gauche du carré-caractère à 
afficher. Il faut monter de 22 + 16 + marge minimale de 2 ; total +40 
en Ÿ. En translation horizontale d'abord + 22 +une marge d'au moins 
10 - 32, d'où un PLOTR 32,40,1 pour écrire en jaune. 


TRES IMPORTANT : La chaîne à afficher en mode TAG doit toujours 
être suivie d’un point-virgule. Sinon des flèches coudées apparaissent 
à la suite de la chaîne ! Et n'oublions pas le TAGOFF. 


Le tracé des arêtes 
Il est indispensable de marquer en bleu foncé (PEN O) les trois arêtes 


‘intérieures’ de la colonne (ligne 310). On replace le curseur graphi- 
que là où il avait été mémorisé (en haut à droite) ; on descend en 
diagonale de — 22, — 22, puis un trait horizontal vers la gauche de — 70. 
Voilà pour le ‘’couvercle’’. Reste la grande arête verticale à droite de 
la ‘’façcade'’. On revient donc de 70 vers la droite par un MOVER et 
de là un DRAW (et non plus un DRAWR) vers l'angle ‘’avant'’ droit en 
bas de la colonne. 

On remarquera qu'à de rares exceptions près, on n'utilise que les 
commandes graphiques relatives, à savoir PLOTR, DRAWR et MOVER, 
bien plus souples à programmer que leurs homologues absolus PLOT, 
DRAW et MOVE. 


Légendes des rubriques (ligne 330) 
C'est très simple ; en ligne 24, on affiche les trois vins, chacun dans 
sa couleur. 


Affichage des quantités (lignes 400 à 460) 

Ce module est tout à fait optionnel car il n'est pas à l'abri de la critique. 
Deux raisons à cela : les chiffres ont une hauteur de 16 points, donc 
pour des rubriques de moins de 20 points, il y aura des chevauchements 
catastrophiques. Second point : sur le CPC 464, il est très scabreux 
de combiner TAG et la transparence (le CHR$(22)). De guerre las, l’au- 
teur a utilisé des LOCATE sur PAPER couleur R et PEN O. Or la position 
en hauteur est calculée par le programme, d'où des positionnements 
arrondis au plus proche, lesquels ne se placent pas au milieu des 
rubriques de faibles hauteurs. 


Le final (lignes 500-530) 

Le CALL &BBO6 attend la frappe d'une touche, sans lui nous aurions 
un catastrophique ‘’READY'" en haut à gauche de l'écran... 

Après cela, confirmation des PAPER et PEN par défaut, et CLS. 


D'AUTRES VARIANTES 


Nous n'avons pas prévu de titre. || vous sera facile de l'ajouter, mais 
‘pensez alors à abaisser le maximum des colonnes de 300 à 270, pour 
le placer en ligne 1, avec BORDER couleur PAPER. 

Et pour plus de trois variables ? Il y a la solution de passer en MODE 
O mais c'est... envahissant. Essayons de rester en MODE 1. Pas 
question de tracer en PEN 4 qui se traduirait en PEN O ! Donc, à partir 
de R=4, colorer en R +1 ce qui vous fera repartir par le jaune (PEN 5 = 
PEN 1, PEN6G = PEN2, etc.). Vous pouvez différencier ces couleurs bis 
par un artifice : faites le tracé de ces rubriques en STEP 4 (ligne 250) ; 
cela donne un hachurage horizontal acceptable. 


LES PROBLEMES D'IMPRIMANTE 


Bien sûr, une imprimante est monochrome {le prix des ‘’4 couleurs" 
est encore dissuasif pour les amateurs). Nous pouvons faire une copie 
d'écran à l'aide d'un des programmes décrits au chapitre XVI, mais 
ceux-ci utilisent la fonction TEST qui renvoie la couleur du pixel à l'écran, 
0, 1, 2 ou 3. L'imprimante traduit par O ou 1 (1 = supérieur à O), donc 
nos colonnes seront toutes noires avec seulement les arêtes en blanc : 
pas de séparation des rubriques. Deux remèdes : 

Hachurer par le STEP4 les rubriques n° 1 et 3 et le couvercle. Très 
simple, ajoutez une ligne 245 


245 ST=4:IF R=2 THEN ST =2 


puis modifiez la ligne 250 : Remplacez STEP2 par STEP ST. 

Enfin, ligne 290, remplacez STEP2 par STEP4. Le résultat est très pré- 
sentable. Hélas, un petit défaut : nos trois noms de vins en bas de l'écran 
sont tous trois écrits en noir. || faudra légender autrement. 


Seconde solution : utiliser certains logiciels du commerce, tel que 


"TASCOPY'' qui traduisent les différentes couleurs par des grisés 
différents sur imprimante. 


FRA 


RFA 



































ÊTES 





[É 
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À 
Î 
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CONCLUSION 


Comme promis, le programme était court et nous vous en avons livré 
tous les ‘’secrets'’. Vous voilà donc en mesure de programmer une 
routine histogrammes en perspective à la suite de vos logiciels. 

Une grande recommandation : lorsque vous vous attaquez à un 
programme graphique, ‘‘calculez votre coup’ sur papier avec une cal- 
culatrice avant de taper une seule ligne de Basic. La tendance naturelle 
est de se lancer directement dans de longs tâtonnements, retouches 
de lignes, etc. Vous ÿ passerez des heures pour enfin aboutir à du ban- 
cal. Il est bien plus rapide de calculer des bases solides, les program- 
mer, et ensuite peaufiner de menus détails. La qualité est alors garantie. 


57 


Chapitre VII 


LA REPRESENTATION CIRCULAIRE 


C'est ce que l’on appelle vulgairement un ‘camembert’, dont nous 
abreuve la télévision pour les résultats électoraux : chaque rubrique 
occupe un secteur de cercle plus où moins important. 

Le grand intérêt de ce type de représentation concerne les résultats 
exprimés en pourcentages. 100 % valant bien sûr 360°. 

Dans un premier temps, il faut donc transformer les valeurs de chaque 
rubrique en pourcents par rapport au total numérique de ces rubriques. 
En multipliant ces pourcents par 3,6, on obtient l'angle du secteur repré- 
sentatif. OK ? 

Il ne reste plus qu'à effectuer le tracé. Hélas, l'AMSTRAD ne possède 
pas la fonction CIRCLE, il faut donc la construire en Basic, mais pas 
selon la ‘’méthode'’ du manuel d'origine que je qualifie de délirante, 
parce que super-lente pour conduire à un tracé en pointillés ! 


LA ROUTINE CERCLE 


C'est un sous-programme à ajouter à la cassette ou disquette utilitai- 
res, car appelé à être rechargé par MERGE, d'où ses numéros de lignes 
en 54000. 

Ces trois lignes Basic tracent un cercle parfait en 1,5 seconde, et pas 
en pointillés, en MODE O, 1 et 2. Le principe consiste tout simplement 
à tracer 36 ‘‘cordes’’ et ce polygone à 36 côtés est assimilable à un 
cercle, même en MODE 2. 

Il suffit de donner les coordonnées X,Y du centre, le rayon et la cou- 
leur COL du PEN. Cette durée de 1,5 seconde ne varie pas avec le rayon 
ou le MODE. 


DE CERCLE 
X+R,Y,COL 

à TO <48 STEF 10 

COS (A) +X,RASINIAZ)+Y:NEXT 





l 
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ELECTIONS 





1 5 MOREALI = 77.68 
2 : CLEMENT = 27,78 
ZT 2: VARDIER = JS 
4 : FABRE = 12.6 
5: = 11.47 
9 = 8.76 
Eur un TOTAL de & 
es" Te 
ee | TK 
B à 
4 in 
"A | Ÿ 
/ | \ 


MUNICIFALES 
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ra 
Ds 
cn 
rev 


ELECTIONS MUNICIPALES 


: MOREAU = À 
: CLEMENT = à 
: VARDIER SL 
: FABRE = | 
RNAUD S4 
DUVEAU L 


C2 re 09 CO FU CS 
LC .17-L213072 
M ICO C9 C0 CO 
XKKNKEAK 


Essayez : 
1 CLS:X = 320:Y = 200:R=190:COL=1 
2 GOSUB 54000:END 








Ceux d’entre vous qui ne connaissent pas (ou ont oublié) les fonctions 
trigonométriques COS et SIN pourront se reporter à MPSA pages 56-58. 
Disons brutalement que COS varie dans le sens X et SIN dans le sens Y. 
Comme COS et SIN ne peuvent dépasser la valeur 1, ils sont multipliés 
par le rayon, exprimé en ‘’points'’ graphiques AMSTRAD. 


LE PROGRAMME CAMEMBERT 


Un écran de saisie vous invite à entrer les ‘’composantes’”, c'est-à-dire 
chaque nom de rubrique puis sa valeur numérique. Par exemple, pour 
une élection, nom du candidat, ENTER, nombre de voix, ENTER. En cas 
d'erreur, tapez ‘‘E'" pour revenir un ‘’cran'" en arrière. 

Le nombre de ‘‘rubriques’’ doit être compris entre 3 et 12. 

En fin de saisie, tapez Q pour quitter. L'écran vous propose un tri (clas- 
sement) puis c'est la représentation graphique en haute résolution 
(MODE 2) : 

Les divers secteurs sont légendés en leur centre par une lettre (A, B, 
C...). A droite apparaît la légende lettre-nom-pourcentage. En-dessous, 
le total numérique (exemple nombre de suffrages exprimées) ; et, plus 
bas, quatre options : E = Encore (c'est un RUN), C = Classement (ordre 
croissant), |=Imprimer la liste complète des résultats, F=FIN 
(END + CLS en MODE 1). Dans le module impression, vous pourrez 
enchaîner sur une copie d'écran par un de nos programmes du chapi- 
tre XVI. 

Nous avons ajouté un petit gadget, un ‘LOGO’ de titre, qui écrit ‘‘repré- 
sentation camembert'” en deux couleurs, avec toutes ces lettres répar- 
ties en cercle (lignes 2000 à 2140). On vous demande d'entrer le nom 
de ce tableau ; titre qui sera centré sur l'écran final. 

On peut donc dire que ce programme se divise en trois parties : 

1 — Saisie et calcul des données, 

2 — Représentation graphique des données, 

3 — Des modules facultatifs : logo, imprimante, tri. 


IA ‘ CAMEMBERT / AMSTRAD CPC / M.A. 94 
29 DIM NM#412) ,CA(12,2) 

28 ‘DIM CA:i-QUANTITE NE; Z2=NB/TOTAI 
SITION ANGULAIRE 

4 INE B,i:INE 1,24:IN6 Z,2@:INE 2,6: BOR 
DER 15 

SA ‘TITRE 

68 GOSUR 7208: LOGO 
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F8 LOCATE ZS,Z2@8:PFEN 2:PRINT "Nom du Table 
au: "3sSTRINSE(22,". "3 SsSTRINGH(18.,"."):PE 
N O1:LOCATE 19,2@:LINE INPUT TIT# 

98 TITE=LERT#E(TITE,4G) 

1A8 ‘SAISIE 


118 BORDER Z2:PFAPFER 2Z:PEN 3: CLS: LGCATE 3, 
Z2:FRINT "12 NOMS mari de 17 CARACTERES m 


AK. 

128 LOCATE 4,24: PRINT Erreur = E ; pour 
Chuitter NOM = ü&° 

13G LOCATE 1B,4:PRINT "NOM: '":LOCATE 25,4 
2 FRINT "QUANTITE : ": PEN & 

140 N=N+j:1GCATE ©, > HER USING "#4": 
N:LOCBATE 7,24+N:PRINT "05 Mi STRINGE(IS,". 
Ps OCATE 1@,S+N:LINE INPUT PU,NME 

12BG IF UPBERE (NME ZM THEN N=EN—-1:GSOTO ZE 
Ga 

168 IF UPPER INMH)I ZE" THEN N=N-2: TNE=TH 
E-HNE: GOTO 14% 

176 NMEENIZ=LERTEÆ NME, 155 

188 LOCATE 27,24+N: INPUT SS,NES#: NE=VAL (NE 
H):IF UPFPEREEINRE)="E" THEN N=N—-1i:GSCOTO 14 
Fa] 

190G IF INE=C AND NES OK NEC THEN 
PRINT CHR#E(7):6G07G 1884 

2CR CAIN, 1) =NB: TNE=TNERENES IF N=12 THEN 3 
Ga 

21@ GOTS 148 

-38G ‘FIN DE SAISIE 

F1Q FEN Z:IF N=j THEN FRINT CHR#({7)2:1 OCA 
TE Z,Z2:PRINT Pas de Camembert pour UNE 
variable... ":FOR I1=1 TO ZAGG:MEXT:RUN 
268 LOCATE é,22:PFRINT "Voulez-vous class 
er + { G£N 3" 

FIG DE=UPEERSEETINEENES SI CEZUN® THEN SG 
ZAR IF GE<ENO" THEN ZT 

2568 LOCATE 4,22: PRINT CHRIS): SFC{I1i2:" 
Fatience..." 

AB ‘TRI 

AR FOR J=i TO N:EZ=C8{(J,11 

AGE FOR I=J TO N 

RIT, ,1):=E THEN EZ=CSIT, 11 :H=1I:E#- 


448 NEXT 

BSQG CR(K,1)=CACT,1):C8{J,1)-=E 

ASC NME CE) ZNME CT : NME (J) = 

478 NEXT 

580 CALCULS DIM Ca 

Sie FOR I=i TO N:CAUCI,2)=CA(I,1) /TNE: CA 
1,2)=ZSé60akCA(T,2)+CA(I-I,Z3):NEXT 

BG ‘ TRACE 

LA MODE Z:1NE B,1Z:INE 1,0: RORDER 9 

SEA X=196: *-200: R= 17@:C0L=i:SOSUR S4900 
26 FOR I=i TO N:PLOT X,Y,1 

SAR DFAUR COSICAIT, TIR, SIN(CA(I, TD) #R: 
NEXT 

SA FOR I=N TO 1 STEF- 

LéG AB=(CCRET, ZT) 4CAUT—-1,7))/2: "OENGLE HISS 
ECTRICE 

578 FLOT X.Y 

82 DRAUWR COS (ARI KIT, SINCAH)+179,82 

278 LOCATE XPOS*S, (400-YFOS) /16:FRINT CH 
FE(SA+TIINEXT: FLOT X,Y,1 

86 LOCATE 48+(4G-LENITIT#H))/2,2:FRINT T 
TT 

Fi0 ne I=i 70 

728 LOCSTE 47,4+I: PRINT CHREÆ(S4+1)3" : " 
sNMECT) 

FIQ LOCATE 87,44+I2:PEINT = Ms: FRINT USIN 
G UHR, HET: CAIT, 2) #160::PRINT ® ZX" 

FER NEXT 

F5 LOCATE SB,1S9:PRINT "SUR {IN TOTAL DE” 
: TNE 

FE LOCATE 28,727: PRINT "Encore,Fin,£Cilass 
er ,lmorimer 7 € E,F,C,I " 

778 CH=UPPERS CINÉEYS) 2 IF DEF=PE" THEN RUN 
FB@ IF CÆZ="C" THEN 468 

F0 IF LE="I" THEN GOSUE ZAQB:GOTC 770 
880 IF QESSSES THEN 778 

B1C MODE i:1INE A,1iz:INE 1,24: BORDER 1:FAF 
ER G:PFEN 12:CLS 

EZA LOCATE 11,1Z2:FRINT "VOUS POUVEZ ETEI 
NDGRE, F2 PRINT: PRINT 

BZA END 

2666 ‘ LOSC 

2814 MODE 1: DEG:R=ITH 


Fee A OKRIS 


LOSA ECUK 
=I+i 


2Q6Q PLOT COS(AI#R,SIN(A)EE, 
2070 FRINT MIDH(A#.I, 


EDS NEXT 


2090 FOR 8=297 TO 


:J=3+1 


2100 PLOT COS(A)%R, 
2110 PRINT MID#(EHE, 


2170 NEXT 


21710 TAGOFF: ORI 


2140 KETUEN 


EPCR ‘IMPRESSION 4 
3014 FRINTEHS CURE (27) 
5)) /2)3TITEPRINTSE 


TAG FC ee 





740 PRINTHE,NMEIT 


#t LE 


0358 PRINT#E, DENT HE” 
:BéG FRINT4#S 


T@70 NEXT 


21900 FRINTHO:FR 


AL de'":;TNE 
FA98 FOR I=1 


SÉAGQ *‘  TÉALE DE 
54618 DEG: FLOT 
SAGTQ FOR 4Z=G TO 






2040 HE= ÉMeEe re 


Ca (M 


. 
pe ue 
(7 


bob 


24+R,Y,COL 
360 STEF 


-{192/LEM(A#HID:I 


Î 


(148/LEN(E#)) 


BDER,Z 


SPCiCAG-LENCTIT 


"HHUS IL PFRINTHE," = " 


S-LEN(NME {I} })à; 


A{I,7) +100: 
AS D 


&: FRINTHB:NEXT 


1m 


SAQGTA DRAW FexCOS(AY)4X,ReSIN (AU) 4Y: NEXT 


SADAZ RETURN 


LU] 


Rte) : = —…— 


TINS 

















SAISIE ET CALCUL DES DONNEES 


Les valeurs numériques sont logées dans le DIM CA(12,3). Les trois 
indices ‘‘horizontaux'" sont ‘1’ la valeur NB saisie à l'écran, ‘’2'" ce 
nombre NB divisé par le total TNB, ‘’3'" la position en degrés dans le 
cercle de la ‘‘rubrique'’ en question. Les valeurs ‘’2"" seront bien sûr 
calculées après la saisie, les valeurs ‘‘3"" seront recalculées en cas de 
tri. 

Si en cours de saisie on tape E (erreur) en guise de nom, le curseur invite 
à entrer le nom puis la valeur de la rubrique précédente. Si E est tapé 
en guide de valeur, le curseur invite à ré-entrer le nom de la rubrique 
en cours, puis la valeur. 

La fin de saisie, obtenue en tapant Q en guise de nom ou après la 12e 
rubrique, propose le tri par valeurs croissantes. 

C'est la ligne 510 qui va remplir les indices 2 et 3 du tableau DIM CA 
(12,3). 


LE TRACE (lignes 600 à 690) 


On passe en MODE 2, traits noirs sur fond gris. On trace le cercle dans 
la moitié gauche puis les rayons séparateurs de rubriques (630,640). 
Toujours à l’aide des CA(N,3), on calcule l'angle de la bissectrice de 
chaque secteur (660). On trace en PEN O (invisible) des rayons plus 
courts sur ces bissectrices (680) et, en bout de ces rayons, on affiche 
une lettre À, puis B, etc. (690), lettre qui a légendé le secteur. 
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L'AFFICHAGE (lignes 700 à 800) 


Le titre se centre dans la moitié droite en haut de l'écran (700). Puis, 
toujours dans la moitié droite, les légendes, à savoir la lettre représen- 
tative, le nom de la rubrique et le résultat en pourcents. En final, le total 
TNB. 

Enfin un menu d'interventions : Encore, Tri, Imprimer et Fin. 
L'option Imprimer se contente d'écrire les résultats complets. Libre à 
vous de la continuer par un de nos sous-programmes de Hard-copy 
d'écran. 


NOTE : Pour positionner des lettres sur le curseur graphique vous remar- 
querez que l'on peut tout aussi bien utiliser TAG, comme dans le logo 
du module 2000, ou tout simplement LOCATE positionné par XPOS 
et YPOS (ligne 690). 


CONCLUSION 


Notre camembert est très net (MODE 2) mais en monochrome ; son 
tracé est très rapide. Sans chauvinisme, nous le préférons aux camem- 
berts avec secteurs colorés ‘’tape-à-l'œil"" mais très difficilement lisibles. 
Comme pour nos histogrammes du chapitre précédent, on peut pré- 
tendre à la ‘qualité pro’. Il va de soi que vous pourrez adapter ce pro- 
gramme à la suite d’un de vos logiciels de calcul, ce qui supprime bien 
sûr toute la partie saisie. 

Notre limitation à douze rubriques-secteurs est tout à fait arbitraire,, 
mais au-delà ce serait plutôt une roue de bicyclette, et la représenta- 
tion perdrait tout impact visuel parce que trop surchargée. 


Chapitre VIII 


LES DIAGRAMMES 


Il s'agit de graphiques classiques en ‘’X,Y'”'. La difficulté rebutante est 
sans conteste la graduation des axes, il fallait rendre cela automatique. 
Le logiciel Basic que nous vous proposons se charge de tout ; vous 
entrez seulement les mini et maxi en X et Ÿ, les noms des unités et 
le titre du graphe, il décide alors du pas des graduations, des marqua- 
ges de valeurs, il trace les axes, centre le titre et légende les axes. 

Quant aux valeurs numériques à représenter, deux méthodes d'entrées : 
un tableau de saisie où les valeurs de chaque point sont entrées au 
clavier. Ou vous entrez une formule mathématique même fort longue 
et complexe (maxi 255 caractères...). Le logiciel calcule alors 101 points 
pour en tracer la courbe représentative. 

À tout cela s'ajoutent quelques options très utiles, enregistrement d'un 
graphique, rechargement, édition sur imprimante des valeurs X, Y des 
points (saisis ou calculés) et hard-copy de l'image. 

Contrairement au programme précédent sur les histogrammes, ce logi- 
ciel est ‘’complet'”, indépendant, une ‘‘bête à tracer’. Est-il vraiment 
universel ? Il ne lui manque qu'une option, que nous n'avons pas voulu 
ajouter car elle aurait ‘’effrayé'" la plupart d'entre vous, il s'agit des 
échelles logarithmiques. Si vous avez besoin de ces progressions, vous 
êtes forcément capable d'écrire ce supplément (environ 1500 octets 
en plus). C'est en fait beaucoup plus simple que pour nos échelles 
‘’décimales””. 


LE PRINCIPE DU PROGRAMME 


L'utilisateur qui souhaite virevolter dans ce logiciel doit seulement bien 
avoir en esprit le fait suivant : 

Le tableau des données à représenter sous forme de courbe est totale- 
ment indépendant de l'ensemble des paramètres du tracé (limites 
d'axes, titre, légendes, etc.). 


67 


Avantages : On peut conserver la présentation du graphe pour d'au- 
tres données numériques, ou garder ces dernières pour une autre pré- 
sentation. La sauvegarde concerne les paramètres suivis des données. 
Après un rechargement, on peut modifier l’un ou l'autre des deux 
ensembles. Donc souplesse avec bidouilles sans limitation (pas de SAVE 
de l'écran). 

C'est le sous-programme ‘'Tracé’”’ qui assemble ces deux domaines ; 
il peut enchaîner sur un hard-copy d'écran. 

D'autre part, tout le logiciel est en programmation ‘‘structurée’”, c'est- 
à-dire une suite de modules indépendantes appelés par des GOSUB à 
partir du menu. || vous sera alors très facile de le personnaliser par la 
suite ; suppression, ajout, modification, récupération de certains modu- 
les pour d'autres programmes, etc. Bref, tous les atouts d'un logiciel 
structuré. 

En cas d'erreur lors de l’utilisation, il y a une issue de secours : touche 
ESC, puis tapez GOTO 1000 (facile à retenir), d'où retour au menu sans 
rien perdre. 


LE LISTING 


Certes, il est long mais vous pouvez vous dispenser de taper certains 
modules (instructions, impression). Le ‘‘très gros morceau" est bien 
sûr le tracé des axes gradués ; c'est très complexe avec beaucoup de 
IF, de flags, de variables calculées, etc. Ce fut un grand casse-tête pour 
prévoir tous les cas possibles. Comme la définition d'écran est de 200 
points en Ÿ contre 640 points en X, il y a deux sous-programmes 
différents. 

Les autres modules sont en revanche simples à comprendre et à écrire. 


TRES IMPORTANT : Ligne 130, nous chargeons un programme en lan- 
gage machine très court (181 octets) décrit au chapitre XVI, que vous 
pourrez taper avec le ‘’MACHDIM'" du chapitre IV. Si cela vous rebute 
encore, ne tapez pas cette ligne 130. En contre-partie, pour avoir la 
copie d'écran sur imprimante, vous ajouterez alors en fin de listing la 
routine Basic ‘'Hardtest'” (chapitre XVI), qui fait exactement la même 
chose mais en beaucoup plus lent ; et ligne 11420 vous remplacerez 
CALL &9F00 par GOSUB 58000. C'est tout. Evidemment, si vous 
n'avez pas d'imprimante, ce sera encore plus simple... 


LA DEFINITION DES AXES 
(Option A - lignes 2000 à 2600) 


On vous demande d'entrer les ‘‘’bornes'" mini et maxi pour chacun des 
axes X (horizontal) et Y (vertical) ; là, deux obligations (sinon refus) : 
il faut que ces nombres ainsi que leurs différences (dX et dY) soient 
des nombres entiers (=non décimaux) et ayant au maximum deux 


‘chiffres significatifs ‘’ (= suivis de zéros). Des exemples seront plus 
clairs : 

e mini=50, maxi= 160 (d=110) : accepté 

e mini=950, maxi= 2200 (d = 1250) : refusé, 

parce que 1250 a trois chiffres significatifs (1, 2 et 5). On corrigera 
donc par mini = 900. 

Par la même occasion, on vous demande (mais c'est facultatif) le titre 
du graphe, les unités en X et les unités en Ÿ. Puis le programme cal- 
cule (très rapidement !) toute une série de coefficients ; voir la liste des 
variables. Je vous fais grâce des détails de ces calculs car ce serait 
long et imbuvable pour beaucoup d'entre vous. 


LE TRACE DES AXES 
(Lignes 3000 à 4200) 


L'écran passe en MODE 2, traits noirs sur fond gris. Après le tracé des 
deux axes, c'est le tour des petits traits de graduations (3 hauteurs dif- 
férentes) au pas de 1, 2 où 5, décidé par le programme. Ensuite, ce 
sont leurs valeurs, bien centrées en face du trait. 

Pour la clarté de la lecture, il n’écrit que les deux premiers chiffres, sauf 
le nombre ‘’100'" et quand il est en bout d'échelle. Ainsi, une échelle 
de 28000 à 87000 sera en fait légendée de 28 à 87, mais les ‘‘butées” 
sont rappelées à l'écran ; toutefois, une échelle de — 4 à +9 sera effec- 
tivement graduée de —4 à +9. 

Cas d'une échelle O à 100 (ou O à 1000... ). En X on va de O à 100 
au pas de 1 avec indications des valeurs tous les dix. Trois hauteurs 
de traits pour unités, valeurs en 5 (5, 15, 25,...) et les valeurs en 10 
(10, 20, 30,...) ; donc exactement comme sur un double décimètre. 
Sur l'axe Ÿ, marquage tous les dix mais les graduations sont ici au pas 
de 2, car verticalement on n'a que 200 points rée/s au lieu de 640 
horizontalement. 

Cette finesse des graduations d’axes est le point fort de ce logiciel, car 
inhabituelle, même sur les logiciels graphiques professionnels (sur IBM- 
PC, etc...). 

Viennent ensuite les inscriptions (légendes). Le titre est auto-centré en 
haut. À mi-longueur d'axe, la légende de l'axe, et en bout d’axe, l'unité 
utilisée pour l'échelle. En début d’axe, le rappel des mini et maxi réels 
de l'échelle. À noter que pour l'axe Y, la légende s'inscrit verticalement. 
Bref, on n'a pas lésiné sur la présentation ; standing oblige. 


L'ENTRÉE DES DONNEES NUMERIQUES 
(Lignes 5000-5400) 


L'option ‘D’ conduit à un tableau de saisie des valeurs X et Y ; à gau- 
che apparaît le numéro d'entrée de chaque point. Ces valeurs sont stoc- 
kées dans un DIM PT(102,1). Pour quitter la saisie, tapez la lettre ‘‘Q'”’. 
Ces couples de valeurs sont alors triées par valeur x croissante, ce en 
vue du tracé. 
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LE TRACE DE LA COURBE 
(Lignes 8000 à 8200) 


C'est un module court puisqu'il reprend le tracé des axes gradués, puis 
c'est une suite de DRAW de ‘’point'’ en ‘’point'”, en prenant les coor- 
données dans le tableau DIM PT. 

En fin de dessin, on peut revenir au menu en frappant une touche 
quelconque. 


IMPRESSION 
(Lignes 11000 à 11620) 


Un sous-menu propose de lister les valeurs du tableau DIM (même avec 
la DMP1) ou le hard-copy de l'écran. Cette dernière option provoque 
le tracé à l'écran. En fin d'impression, retour automatique au menu. 


SAUVEGARDE ET CHARGEMENT 
(Lignes 9000 à 10500) 


La syntaxe est aussi compatible avec les cassettes. 

Le programme ajoute un nom d'extension ‘’.GRA’”", très utile pour iden- 
tifier l'origine d'un fichier sur un catalogue de disquette. 

Pour rappeler ce fichier, il n'est pas nécessaire de faire suivre le nom 
par ‘’.GRA‘". 

A la sauvegarde, si vous répondez par ENTER à la question nom, ce 
dernier sera constitué par les huit premiers caractères du titre TITS. 
Vous remarquerez qu'en lignes 9070 et 9080 tous les paramètres sont 
sauvegardés. De ce fait, après un chargement, il suffit de demander 
l'option T (tracé). 


L'ENTREE DES FORMULES 
(Lignes 6000 à 7100) 


Cette option ‘‘F'" étant un peu plus complexe, nous l'avons gardée pour 
la fin. Disons aux ‘’matheux'’’ qu’elle permet aussi les coordonnées polai- 
res, par exemple dessiner un cercle, spirale, etc. mais en deux passes. 
Le mode d'entrée d’une formule fait appel à une particularité des 
AMSTRAD CPC, le fait que l'on peut modifier un programme Basic 
arrêté par END et relancer par GOTO sans pour cela perdre les varia- 
bles en cours (le cas est pratiquement unique, n'espérez donc pas ré- 
utiliser cette technique sur un autre micro-ordinateur). 

Donc, à l'appel de cette fonction, le programme s'arrête et vous devez 
taper la ligne 7000 contenant votre formule ; par exemple tapez : 


7000 Y = 10/X puis ENTER 


REZ 


Ceci fait, pressez la touche ‘’."’ du pavé numérique ; cela provoque le 
redémarrage par un GOTO 6500. 


TRES IMPORTANT : Avant de lancer l'option F, il est impératif d'avoir 
déjà défini les axes (option A), sinon refus. Supposons que pour X et 
Y nous ayons fixé mini=1 et maxi = 10. 

Le programme va alors appliquer 102 fois cette formule avec X variant 
de X mini à X maxi, d'où 102 valeurs de Ÿ ; le tout est mis en DIM PT 
(lignes 6510 à 6590). Les valeurs mini et maxi de Ÿ ainsi calculées sont 
mémorisées et affichées en fin de calculs. Si elles sont différentes de 
celles prévues lors de l'option À vous avez alors la possibilité de les 
corriger. 

Faisons un essai : 


a — Option À. X mini=1 ; X maxi=10 ; Y mini=1; Y maxi= 10. 
Répondons par ENTER aux questions titre, légendes, unités. Retour au 
menu. 


b — Option F. Tapez 7000 Y = 10/X, Enter, point décimal du pavé. Un 
message nous annonce que les calculs de Ÿ ont donné comme limites 
0.991080279 et 10. On ne modifie pas. Retour au menu. 


c — Option T. On obtient alors une superbe hyperbole en haute résolu- 
tion, sur des axes gradués de 1 à 10. 


d — Une touche quelconque pour revenir au menu, où l'on redemande 
l'option À : pour :X et Y fixons mini=O, maxi = 12. Menu. 


e — Option T. Notre hyperbole ne vient plus toucher les axes. 


f — Revenez en option À, mêmes limites mais Légende X - '’RESIS- 
TANCE”" ; Unité X='"'K.OHM''; Légende Y — "’INTENSITE’" ; Unité 
Y='"mA’""; Titre ='""LOI D'OHM sous 10 VOLTS'"’. Menu. Option T. 


Tout ceci pour vous prouver l'indépendance des données numériques 
vis-à-vis des paramètres de l'option A. 


LE TRACE EN DEUX PASSES 


Nous abordons le ‘’second degré’ ; problème, représenter un cercle. 
Examinez les lignes 6530 et 6550 : vous remarquerez que ce qui est 
mis en DIM n'est pas X mais Z=X, à moins que Z soit calculé en fonc- 
tion de X, toujours dans la ligne 7000. 


a — Option À : X mini=O ; X maxi = 360. (C'est l'angle en degrés). 
Y mini= — 150 ; Y maxi = 150 (c'est le sinus de l’angle multiplié arbi- 
trairement par 150 points). 


b — Option F : tapez : 
7000 DEG:Y = SIN(X) +1 50:Z = COS{X) +150 


n 
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c — Option À. Eneffet, c'est Z que l’on veut représenter sur l’axe hori- 
zontal. Essayons pour X et Y mini= — 170 et maxi=170. 


d — Option T. C'est plutôt une élipse ! Il faut comprimer l'échelle X. 


e — Option À, encore : X mini= — 250 ; X maxi = 250 ; Y mini= — 170: 
Y maxi= 170. 


f — Option T : ca, c'est un beau cercle | 


Encore plus fort ! Traçons une spirale faisant deux tours, donc angle 
variant de O à 720 degrés : 


a — Option À : X de O à 720 : Y de O à 10 : On se moque de ces limites 
de Y puisque nous devons refaire l'option A... 


b — Option F. Entrez la ligne formule. 
7000 DEG:Y =(1+X/720)+xSIN(X):Z =(1 +X/720)*COS{X) 
Pas de modification des limites Y, d'où menu. 


c — Option À : X de —-3 à 3; Ÿ de —-2 à 2 ; TITRE =Ia formule. 
d — Option T. Une superbe spirale à deux tours. 


Les passionnés de mathématiques vont pouvoir s'en donner à cœur joie 
puisque l'AMSTRAD trace en cinq secondes ce qui aurait demandé 
30 minutes de développement avec une calculatrice... 

Pour des calculs super complexes, vous pouvez taper les lignes 7010 
à /090, mais n'oubliez pas de les effacer pour la formule suivante avant 
de lancer les calculs par le point décimal. 


Usage de l'imprimante 

Notre copie d'écran provoque un ‘’étirement'’ horizontal. De ce fait, 
un cercle à l'écran devient une élipse sur papier. Pour remédier à cela, 
en option À, augmentez d'un tiers les limites de X. 

Au menu, quittez par l'option ‘‘'Q''. Vous pouvez alors imprimer votre 
formule par : 


LIST 7000, #8 


NOTE : Le programme est truffé de sécurités anti-plantages. Exemple, 
le module des lignes 20000 ; en cas de division par zéro ou d'over- 
flow, la valeur de Ÿ prend la valeur calculée précédente. Lors du tracé, 
cela se traduira par un écrêtage de la courbe. 


CONCLUSION 


Ce programme utilitaire fait moins de 9000 octets plus un peu plus de 
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1000 octets pour le tableau DIM, c'est dire que vous avez largement 
la place pour le grossir par des options où des ‘’conditionnements'" 
propres à vos problèmes graphiques personnels. 

Si vous désirez sauvegarder aussi l’image de l'écran, programmez : 


EXT =INSTR(FICH$S,"."):ECRANS = FICHS 
MID$(ECRANS,EXT,4)=''.SCR' 
SAVE ECRANS,B,&CO00,&4000 


Le début de ces instructions consiste à remplacer l'extension ‘’.GRA‘' 
par ‘’.SCR'' (de screen). 


VARIAELES DE GRAFHMAT: 


— C+ : Chiffre droite de Graduation 
— DF : Donnee entree 
— DX,DY : DELTA X,Y 
— DXE,DYE : DELTA echelles X,Y 
— FAXY : Flag fixes X,Y definis 
— FICHE : Nom du Fichier enregistre 
— FIMF : Flag demande d'impression 
- FC : Flag demande de quitter 
— FTRA : Flag demande de Trace 
— H : Hauteur d'un Kepere 
— I,E,N : Indices de Comptages 
— LGXYF,LGY# : Legendes X,Y 
— MINY,MAXY : MIN,MAX des Y calcules 
— MX,MY : Maxi X,Y 
— MXE,MYE : Maxi echelle X,Y 
— NF : Nombre total de Faoints 
— DX,O0OY : Origines X,Y 
— OXE,OYE : Origines Echelle X,ŸY 
— FT(1072,1) : Coordonnees des Foints 
— RGX,RGY : Rapports graphiques 
— RGXE,RGYE : Rapp. graphique d'Echelle 
— ST,STX : STEF de FOR NEXT 
— TEX$ : Liste d'Options 
— TIT#S : Titre du Graphique 
— UXE,UY# : Unites X,Y 
— YG : Valeur d'une Graduation 
Z : Valeur de X dans PFT(1@2,1) 


1@ ‘ GRAFHMAT — TRACEUR DE GRAPHIQUES — 
( + HARD9FGZ ) 


26 “AMSTRAD CPC — M. ARCHAMBAULT 2:/1986 
3G OFENGUT"EIDON": MEMORY HIMEM-—1:CLOSEOU 
3 

48 ON ERROÜOR GOTO 2088@ 

180 DIM FT(182,1) 

11Q DEFINT I1,J,KE,N:ORIGIN 0,0 

128 KEY 138,"GO0OTCO 650@"+CHR# (15) 

i:@ LORD “HARD9F@0": " Programme de Hard 
Copy en Langage Machine (facultatif). 
2@B ‘TITRE 

21@ MODE 1:FAFER 1:FEN 3:CLS 
220 LOCATE 15,5:PFRINT "G FR A 
FEN 2 

2:26 LOCATE 4,1@:FRINT "Michel fAirchambaul 
Et — AMSTRAD CPC':FEN @ 

2:25 PFLOT @,0,5:DRAW 150,:80:DRAW 506,100 
:DRAW 596,299: DRAW 440,2 

248 LOCATE 10,15: PRINT "Instructions , M 
enu 7":TEX#+="IM":GOSUR 50200 

250 FÊFER @:PEN 1:1F K=1 THEN GOSURB 1500 

G 

1A00 ‘MENU 

1@10 INK G@,1:INE 1,24:HORDER 1 

192@ MODE 1:CLS 

1@:0 FEN Z:LOCATE 2,2:PFRINT "TR ACEU 
R DE GR APHI QUE S'":PEN 1 

1040 LOCATE 18,S:PRINT "A — DEFINITION D 

ES AXES" 

1045 LOCATE 1i@,7/7:PRINT "V — VISION DES A 
XES" 

1858 LOCATE 10,9:PRINT "D — ENTREES DES 

DONNEES" 

106@ LOCATE 18,11:PFRINT "F — ENTREE D'UN 

E FORMULE" 

1@7@ LOCATE 18,12:FRINT "T — TRACE DÙ GR 

AFHIQUE " 

1880 LOCATE 10,1S5:PRINT "S — SAUVEGARDE" 
1097G LOCATE 16,17:PRINT "C — CHARGEMENT" 
1095 LOCATE 18,19:PFRINT "I — IMFRIMER" 
1108 LOCATE 1@,21:PFRINT "Q — QUITTER" 


FHM AT": 
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111@ FEN 2Z:TEX#+="AVDFTSCIO":GOSUE 50809: 
PEN 1 

112@ ON E GOSUR 2000,:000,5008,60008,8060 
,:76080,10000,11006,12@00G 

1150 GOTO 1086 

2608 ‘ENTREE DES CARACTERISTIQUES 

2010 CLS:FTRA=G 

2020 PEN 3:LOCATE 1,1: PRINT "Nombres ent 
iers/2 chiffres significatifs":PEN 1 
20530 PEN 2:LOCATE 10,3:PRINT "AXE X ( ha 
rizontal ):":PEN 1 

2040 LOCATE 10,5: INPUT"Limite X MINI: ", 
OX+F:OX=VAL(OXF) 

2050 LOCATE 10,6: INPUT'"'Limite X MAXI: ", 
MXH: MX=VAL(MX#) 

2@6@ DX=MX-OX:1F DX<=Q THEN FRINT CHR#(7 
):GOTO0 2040 

2070 IF VAL{MID#(STRE(DX) ,4,1)) 50 THEN 
PRINT CHR#(7)3;"dX a 3 chiffres significa 
tifs:";:DX:FOR I=1i TO GABG:NEXT: GOTO :O@0G 
2080 INPUT" LEGENDE X: ",LGX# 

209Q@ INPUT"  UNITES X: ",UX# 

2108 FEN 2:LOCATE 10,1G:FRINT "AXE Y € v 
ertical ):":PEN 1 

2110 LOCATE 10,12: INPUT"'Limite Y MINI: " 
,:0Y#: OY=VAL(OY#+) 

2120 LOCATE 10,13: INPUT"'Limite Y MAXI: " 
.MY#: MY=VAL (MY#) 

21350 DY=MY-OY:1F DY<=@ THEN PRINT CHR#(7 
): GOTO 2108 

2140 IF VAL(MIDHE(STR#(DY),4,1)) >@ THEN 
PRINT CHR#(7);"dY à = chiffres significa 
tifs:";DY;:FOR 1=1i TO &GBB: NEXT:FRINT CH 
R#(17):G0T0 2100 

215@ INPUT" LEGENDE Y: ",LGY# 

2160 INPUT"  UNITES Y: ",UY#:PRINT 

2170 INPUT" TITRE DU GRAFHIQUE: ",TITS 
2268 ‘COEFFICIENTS X 

22710 RGX=570/DX 

2220 DXE=VAL(LEFT#(STR#(DX),23)) 

2250 IF DXE=1@ AND DX=<:1@ AND OX=@ THEN 
DXE=100 ELSE IF DXE<1@ AND DX<5 THEN DXE 
=DXE+*10 


2249 KXY=DX/DXE 

22745 IF MX/RX71@0G THEN DXE=DXE/10:G6G907T0 2 
244 

2250 ROGXE=S20/DXE 

27868 GXE-=KROUND (OX/RX) : MXE=ROUND {MX /KRX) 
Z3QG ‘COEFFICIENTS Y 

23518 RGY=5:0/DY 

2720 DYE=VAL({LEFT#(STR#(DY) ,3)) 

255 IF DYE=1G AND DY<51@ AND OY-A THEN 
DYE=1Q0 ELSE IF DYE<1@ AND DY<2S5 THEN DYE 
=DYE*1@ 

2548 KY=DY/DYE 

Z385 IF MY/KRKY>1@00 THEN DYE-=DYE/10@:G0OT0 ? 
340 

2350 RGYE=550/DYE 

2580 OYE-=ROUND (OY/KRY) : MYE=ROUND (MY/KY) 
2508 PRINT:FRINT TAR{6):'"Corriger ,Voir 1 
es axes,Menu 7" 

2516 PEN 2:TEX+-="CVM'":GOSUE SOO0O0G:FEN 1: 
FAXY=1 

2529 IF KH=1 THEN 20080 

2520 IF KE=2 THEN FTRA=G:GSOSUE 5000 

2880 RETURN 

30BG “TRACE AXE X 

307Q MODE 2:1INKE @G,13:INE 1.0:CLS 

Z080Q LOCATE 1i5,25:PRINT OX:;" ":CHR#(Z47) 
sCHR#E (243) :;" "sMXs" 2: "sLGX# 

3090 LOCATE 78-LEN(UXE) ,25: PRINT UX# 
3100 LOCATE 13+{85-LENCTIT#))/2,2:FRINT 
TITH 

3110 FLOT 100,48,1:DRAWR 520,0 

3120 FLOT 100,48: DRAWR @,333 
5150 FOR I=D0XE TO MXE:H=5 

3155 VG=VAL(LEFTÆ(STR#(I),3)):1IF I=MXE A 
ND MXE:99 AND VG=-10 THEN VG-108 

3149 CH=RIGHTE(STRE(VG) ,1):1F C#="S5" THE 
N H=1i0 

3150 IF C$="9" THEN H=1is 

3168 PLOT 19@+{I1-0OXE) #RGXE,48:DRAWR @.H 
3170 IF H=15 OR DXE<20@ THEN PLOTR —-12-4+ 
(LENCSTRE(VG))—-2) ,-CH+5): TAG: PRINT VG;:T 
AGOFF 

3180 NEXT 
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480@ ‘TRACE AXE Y 

497@ LOCATE 2,2:PRINT UY#:FRINT: PRINT MY 
sPRINT:PRINT ° "3; CHR# (254) : PRINT: PRINT 0 

Y: PRINT 

4880 FOR I=1 TO LEN (LGY#):FRINT SFC(S);: 

MIDF(LGY#,1,1) 

4Q@9@ NEXT 

4100 IF DYE:5@ THEN ST=2 ELSE ST=1 

411@ IF ST=2 AND OYE/ZE3SINT(OYE/2) T'iEN 

OYE=OYE-1:DYE-=DYE+i1 

4120 FOR I=OYE TO MYE STEF ST:H=S 

4125 VG=VALILEFT#(ETRE(I),3)): IF I=MYE À 

ND MYE>599 AND VG=1U THEN VG=108 

4130 CF=-FIGHT#H(STRE(VG) ,1)21F C#="S" THE 

N H=1G 

4146 IF C+$="9" THEN H=is 

4150 FLOT 190,48+(I1-0OYE) #*RGYE: DRAWR H,0 
4186 IF H=15 OR DYE<20 THEN PLOTR -H-12- 

BxLEN(STRE(VG)),4: TAG: FRINT VG:;::TAGOFF 

417@ NEXT 

418@ IF FTRA THEN 42700 

4196 CALL &BROG& 

4200 RETURN 

50060 ‘ENTREE DES DONNEES 

50985 WINDOW #@,1,40,7,23:CLS 

S5@iG WINDOW #1,1,40,1.,86:CLS #1:RORDER 2 

502@ LOCATE #1,2,2:PRINT #1,"ENTREE DES 

DONNEES { Q POUR QUITTER )" 

5050 LOCATE #1,2,4:FRINT #i.'"Num':SPC(C13 
Ja "x SPCIIAN SVT 

5040 FRINT #i,STRING#({40." ") 

3180 I=1:H=i 

5110 LOCATE 1,H:FRINT USING "HHH##":l::PR 
INT SFC(13);::INFUT"",D# 

9115 IF UPFER#({D#)="Q" THEN NF=I-1:GOTO 

5200 

9120 IF VAL(DH)=@G AND D#<5"@" THEN FRINT 
CHRE# (7): GOT0 35118 

51:08 FT{I,@)=VAL(DF) 

S140 LOCATE 35,43: INPUT °°,D# 

5150 IF VAL(D#)=@G AND D#£:;"@" THEN FRINT 
CHRE (7) : GOTO 5148 

9168 FTiI,1)=VAL(DF) 


5178 


I=1+1:H=H+#1 


2180 IF I/18=INT{I/18) THEN CiS:H=1 

53196 GOTO 5110 

3280 WINDOW #0,1.,48,1i.2S:CLS 

321@ HORDER 1:PRINT:FRINT " FATIENCE . 

5306 ‘TRI FAR X CROISSANT 

935316 F=G: FOR J= 1 TO NF 

3326 IF PT{J,8):-=FT(J-1.9) THEN 5:60 

3350 FOR R=G TO 1:FT(G,R)=PT(J,R):IPFTCI,K 
)=PT(IJI-1,R) 

J348 PT(J-1,R)=FT(A@,R):NEXT:F=1 

gsém NEXT 

3357@ IF F=i THEN 35310 

3406 RETURN 

820 FORMULE 

881@ CLS 

8028 IF FAXY=@ THEN PRINT CHR#(7)3"IL FA 

UT D'ABORD DEFINIR LES AXES ..... ":FOR W 

=1 TO ZG@BG:NEXT:RETURN 

68=:Q PEN 3S:LOCATE 8,2Z:PRINT "Le Frogramm 

e est ARRETE :'":PEN 1 

684@ LOCATE 2,7:PRINT "Entrez la Formule 
en ligne 790G. Ex :" 

6250 LOCATE 135,9:FRINT "7Q00 DEG:Y=SIN(X 
} 

6806 LOCATE 2,1Z3:FRINT "ENTER , puis le 
- du pave numerique'":PRINT 

68@8@ END 

6500 PRINT: PRINT " PATIENCE ... 
6518 KE=1:STX=DX/1@0:IF INT(ISTX)=STX THEN 
E=@ 

652@ 1=8:FOR X=OX TO MX+FXxSTX STEF STX 
8S535@ I=I+1:Z=X 

65480 GOSUES 7000 

6545 IF OY<Q AND Y<OY#1Q@ THEN Y=OY+*10:FR 
INT CHRE(7)3 

63547 IF Y:MY#1Q THEN Y=MY+#10: PRINT CHR#( 

7): 

65350 FT{I,M@)=Z:FT(I,1)=Y 

6560 IF I=1 THEN MINY=Y:MAXY=Y:GOTO 46599 
27/70 MINY=MIN(Y,MINY) 
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6588 MAXY=MAX (Y,MAXY) 

659@ NEXT:NF=I 

8808 CLS 

641Q LOCATE 1,5:PFRINT "Les calculs de Y 
donnent ces limites :" 

6828 PRINT:PRINT " mini ="; MINY 

6825 PRINT:FRINT " MAXI =": MAXY 

66:00 FRINT:PRINT "Vous aviez prevu de'":;0 
Y'a"; MY 

684Q@ LOCATE 4,20:FRINT "VOULEZ-VOUS REDE 
FINIR LES AXES 7" 

6850 TEX#+-="ON":GOSUR 50088 

68688 IF E=i THEN CLS:FTRA=G:GOSUE 210@G 
&7@8 GOTO 1008 

6998 ‘FORMULE ENTREE À LA MAIN: 

7808 Y=18/X:° ceci est un exemple 

710@ RETURN 

8000 ‘TRACE 

801 FTRA=1:GOSUE ©6000 

8106 PLOT 1G@G6+(PT(1,@)-DX)*#*KG6X,48+(FT(i, 
1)-0Y) #RGY,1 

811Q FOR 1=2 TO NF 

812Q DRAW 100+(FT(I,@)-0OX)#RGX,48+(FT(I, 
1)-0OY)#RGY,1 

81:@ NEXT:IF FIMF THEN 8208 

5150 CALL £&BRG6& 

82008 RETURN 

9008 ‘SAUVEGARDE 

9Q10 CLS:FEN 3:LOCATE 16,3:PRINI "SAUVEG 
ARDE":PEN 1 

9Q2@ LOCATE 11,17:PRINT"i O = Retour MEN 
ÙU )" 

90:@ LOCATE 13,12: INPUT'NOM: ",FICHE 
9035 IF FICH#="" THEN FICH#=TITE:IF TIT# 
=<"" THEN 9000 

9040 FICH#=UFFERS(FICH#):1F FICH#="Q" TH 
EN 97560 

9050 FICH#=LEFTE(FICH#E,8) +".GRA" 

9086@ OFENOUT FICH# 

7076 WRITEH9,TITE,NF,OX,MX,LGXS,UXEF,0Y,M 
Y,LGY#.,UY# 

9089 WRITE#K#9Y,FAXY,DX,RGX,OXE,MXE,DXE,RGX 
E,DY,RGY,OYE,MYE,DYE,RGYE 


9090 FOR I=1 TO NF:WRITE#9,PT(I,0) ,FTUI, 
1) :NEXT: CLOSEOUT 


FS58@ RETURN 
10008 ‘CHARGEMENT 


10G10 CLS:FEN 3:LOCATE 16,3:PRINT "CHARG 
EMENT":PEN 1 

10070@ LOCATE 11,17:PRINT"{ Q = Retour ME 
NU )" 

10830 LOCATE 13,13: INPUT'NOM: ",FICH# 
10035 IF FICH+="" THEN 10000 

10048 FICH#=UPFER#(FICH#):1F FICH#="0" T 
HEN 10500 

10050 FICHF=LEFT#S(FICH$,8)+".GRA" 

19060 OFENIN FICH# 

1007Q INPUTH9,TIT#,NF,OX,MX,LGX#,UX#,OY, 
MY ,LGY+#,UYS# 

10080 INPUT#9,FAXY,DX,RGX,OXE,MXE,DXE,RG 
XE,DY,RGY,OYE,MYE, DYE ,RGYE 

10090 FOR I=i TO NF:INPUTH9,PT(I,@),PT{I 
,1):NEXT: CLOSEIN 

18500 RETURN 

11009 ‘IMPRESSION 

11910 CLS:FO=0 

11070 LOCATE 5,5:FRINT "SI L'IMPRIMANTE 
EST PRETE ..." 

11030 LOCATE 10,9:PRINT "D — LISTE DES D 
ONNEES" 

11048 LOCATE 10,11:PRINT "G — GRAPHIQUE" 
11050 LOCATE 1iG,13:PRINT "O — QUITTER" 
11068 TEX$="DGQ":GOSUE 5@G0QG 

11870 ON K GOSUR 112700,11400,11680 

11875 IF FQ THEN FO-0:GOTO 11500 

11082 GOTO 11008 

11208 ‘LISTE 

11205 FRINTHB,CHRE# (27) ; CHR (64); 

11210 PRINT #8,SFC((4G-LEN(TIT#))/2)3;TIT 
$:FRINT #3 

11270 FRINT #8," Numero"; SPC (10); "X": SPC 
(14)3;"Yy" 

11225 PRINT#8,TAB(16) ;LGX#: : PRINTHS,TAR( 
31): LGYS 

11750 PRINT#8,TAB(16) ;UX#: : PRINTHS,TAB(S 
1) :UY#: PRINT#S9 
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11240 FOR I=1i TO NF 

11250 PRINT #8, USING "HHHH":l::PRINT #8 
SPC (8); : PRINT HS ,USING "HHHHHH.HHHU: PT 
1,8); 

11260 PRINT #8,SPC(S)3::PRINT #8,USING "# 

HHHHH. HHHU:PTCTI,1) 

1127@G NEXT:FOR 1=1 TO Z:PRINT #HB:NEXT 
11:00 RETURN 

11480 ‘“HARD COPY 

1141@ FIMPF=1:GOSUE 8080 

11420 CALL SOFOG:FIMPF-G: PRINT HGS,CHRE#E(27 
)3 CHR# (64) ; 

114:Q MODE 1:INK G,1:INK 1,24 

11500 RETURN 

11600 ‘RETOUR MENLI 

11610 FQ=i 

11820 RETURN 

12000 ‘ QUITTER 

1281@ CLS 

1292@ END 

15000 ‘INSTRUCTIONS 

1501@ CLS 

15020 PRINT " Ce Logiciel dessine automa 

tiquement lesaxes XY avec leurs graduati 

ons , suivantles limites que vous aurez 

fixees.” 

15030 FRINT " Les Donnees peuvent etre e 

ntrees en de-sordre,il les classera en X 
croissant ,oubien par une formule mathem 
atique. Le trace de la courbe est 
ultra rapide." 

15@48 PRINT " On peut imprimer le tablea 
u des donneesou le HARD COPY du graphiqu 
e. Suivre l'ordre logique 
suivant: ":PRINT 

15050 PRINT "i-Definir les caracteristiqg 
ues des fAxkes.?-Entrer les donnees ou la 
Formule. 3-Trace du graphe.":PRINT 
1506Q PRINT " On peut sauvegarder un gr 
aphe:Le NOM de ce fichier de donnees pe 

ut etre le TITRE du grsphe si vous rep 

ondez par la touche ENTER «a la question 

NOM. " 


15878 PRINT " Si vous venez de recharger 
un fichier- graphe,passez directement a 
l'option T.'"s:PRINT:PRINT " PRE 

SSEZ UNE TOUCHE." 

150899 CALL &ERGE 

15000 RETURN 

2ABBRG “TRAITEMENT ERREUR 

28010 IF ERL=/0@8 AND {ERR=6 OR ERR=11) 

THEN Y=FT(I-1,1):RESUME 71@@ 

28020 CLS:PRINT "ERREUR NUMERO" ;ERR;: "EN 

LIGNE" ;ERL : END 

50008 ‘REFONSE À UN MENU 

S001A LI=LEN(TEX#):R#="" 

9929 LOCATE i5-LT,Z24:PRINT "Reponse (": 

SBUEBG FOR I=i TO LT-1 

S50@49 PRINT MID#H(TEX#,1,1)3:","3;:NEXT 

S0BSG FRINT RIGHT#ITEX#,1)3:")";CHR# (154) 

3 CHRE 245) : CHR# (207) 

SAB6Q TEXF=UPPFERSE(TEXF) 

3097Q WHILE R#&="":R#=INKEYS: WEND 

0088 RF=UPFPFERE (RS) : É=INSTR(TEX#,R#) 

20096 IF K=@ THEN R#="":PRINT CHR#(7)::G 

OCTO =8a@7@ 

2380100 RETURN 

09939 à FIN DE LISTING —------ 


…s 


Chapitre IX 


DEFINITION D'UN FICHIER 
ET DE SES BUTS 


Pour le nouveau-venu à la micro-informatique, la première application 
est l'établissement d’un fichier : il y a le côté spectaculaire de la chose, 
doublé par la facilité due à de nombreux logiciels du commerce, bon 
marché, performants et simples d'emploi. 

Et c'est là que les bévues s'accumulent ; très souvent on se lance dans 
ce que l'on appelle vulgairement un ‘travail de singe’’, c'est-à-dire un 
travail important mais hélas inutile parce que mal pensé dès le départ. 
Première grande règle : // faut commencer par a fin ! Disons plutôt par 
la finalité. Avant de se lancer dans la saisie de centaines de fiches au 
clavier, il est sage de se poser les questions suivantes : 


— La recherche sera-t-elle plus rapide que dans un fichier ‘‘papier” 
(fiches bristol, répertoires alphabétiques, etc.), compte tenu qu'il fau- 
dra chaque fois mettre l'AMSTRAD sous tension, puis charger le logi- 
ciel, puis charger le fichier et enfin faire la recherche ; alors que trou- 
ver le numéro de téléphone de DUVAL ne prend que cinq secondes 
sur votre agenda de poche, ou quarante secondes dans l'annuaire 
des PTT de votre département... (vrai ou faux ?) 

— Deuxième cas, la recherche sur micro (tout compris) prend 5 minu- 
tes ; avant, sur papier, il en fallait 30. On semble gagnant ! Pas tou- 
jours. La saisie de ce fichier au clavier a demandé 20 heures (péni- 
bles...) ; sa mise à jour obligatoire (eh oui, un fichier doit être ‘‘entre- 
tenu'’) vous demande au total quatre heures par an. Et maintenant 
la douche froide : en fait, vous n'y faites en moyenne que cinq recher- 
ches par an ! Faites Vos comptes ; c'est ridicule. Si, en revanche, 
vous effectuez dix recherches par mois ou plus, alors là, vive les 
fichiers en informatique |! 

— Troisième cas, vous êtes à présent persuadé que l'informatique va 
supplanter le système papier, mais hélas votre problème personnel, 
sans être vraiment compliqué, est vraiment très ‘‘’spécial'’. Vous 
achetez alors des logiciels de plus en plus sophistiqués et chers, qui 


85 


vous proposent des dizaines d'options dont vous n'avez que faire, 
et qui ne résolvent toujours pas votre problème si particulier. C'est 
le moment pour prendre conscience que vous appartenez à une mino- 
rité ‘noble’ : vous êtes un possesseur de micro-ordinateur sachant 
programmer. Faites votre logiciel sur mesures ! C'est très facile pour 
un gestionnaire de fichiers. Il ne saura traiter que votre problème, 
certes, mais sur ce point il Va ridiculiser par ses performances les 
plus ‘’grands'’ logiciels du commerce (et c'est gratuit... ). 


Encore un argument pour vous lancer dans le ‘’fait main'’ : l’auteur d'un 
logiciel du commerce ne sait pas du tout ce que veut en faire chacun 
de ses acheteurs, alors il a multiplié les options, les menus, les sous- 
menus... Ce désir de ‘’souplesse'’" se traduit par la lourdeur d'emploi, 
il vous faut toujours donner les mêmes réponses à des cascades de 
questions, au risque de se tromper... énervant ! Et, bien sûr, il manque 
le petit détail ‘tout bête'’ dont vous avez tant besoin. Pire, ce logiciel 
Diplodocus occupe 25 kilo-octets et il ne vous reste plus grand chose 
pour y loger votre fichier. 

En le programmant vous-même, 75 % de ces questions disparaissent, 
il ne représente plus que 9000 octets et il fait exactement ce dont vous 
rêviez. Vous êtes gagnant sur tous les tableaux. 


LE CHOIX DES VARIABLES 


Ilest aussi dangereux de prévoir trop grand que trop petit. Car passée 
l'euphorie des vingt premières fiches, il est vexant de se trouver piégé 
lorsque le fichier dépasse les 10 kilo-octets. 

Le premier problème est de déterminer les variables : noms, nombre, 
longueurs et natures (numériques ou chaînes). Cela s’étudie sur papier, 
très soigneusement, même si plusieurs heures sont nécessaires. C'est 
une succession de cas de conscience car il faut être à la fois radin et 
prévoyant ! Nous serons plus directs en disant qu'il faut uniquement 
conserver les variables (rubriques) pouvant être des ‘voies d'accès”, 
plus quelques variables vraiment indispensables. Une fiche ne doit pas 
être une ‘‘fiche signalétique’ complète, mais une pièce de repérage. 
Un exemple concret : supposons que vous êtes le vendeur de voitures 
d'occasion d'un grand garage : les acheteurs vont vous demander 
‘’qu'avez-vous comme RENAULT ?’”’, ‘’comme BREAK ?'', ‘‘comme 
moins de 6 CV ?'”", ‘’comme voitures rouges ?'’. Que de voies d'accès 
au fichier ! Marque, carrosserie, puissance, couleur, modèle, année, kilo- 
métrage, prix. Autant de variables de sélection, plus une autre indis- 
pensable où se trouve tout ce qui concerne cette voiture (clés, carte 
grise, emplacement dans le garage, etc.). Dans ce fichier informatique, 
il serait inutile et encombrant de faire figurer des variables telles que 
numéro minéralogique, ancien propriétaire, date d'entrée, etc.). 

I reste maintenant à déterminer les longueurs maxi pour chaque rubri- 
que ; c'est l'occasion de prévoir une codification stricte des valeurs 
entrées. Exemple : rubrique couleur, on aura six caractères pour blanc, 


noir, jaune, bleu, rouge, vert, violet, marine, gris, ciel beige, brun, 
orange. Interdiction d'entrer des couleurs telles que ocre, paille, car la 
fiche ne sortira pas si on recherche jaune : peu importe si la fiche n'est 
pas très précise, l'essentiel est que le fichier soit efficace. Ne perdez 
jamais cela de vue ! Un fichier informatique n'est pas une pièce d'ar- 
chive bibliographique, c'est une chose vivante, faite pour être triturée 
dans tous les sens. 

Un autre problème concernant les longueurs maxi est l'éventualité d'édi- 
tion sur imprimante sous forme de tableau : si votre imprimante ne peut 
faire que 80 caractères par ligne, il faut tenir ses comptes ! = Total des 
longueurs + 1 caractère par rubrique (séparation mini). Pensez aussi 
au fait que la longueur de la légende ne peut être supérieure à la lon- 
gueur maxi prévue. Exemple : un caractère vous suffit pour la variable 
"TYPE", mais sur l'en-tête du tableau, vous ne pourrez placer que le 
"T""; pas très clair. Alors, portez la longueur maxi à 2, car ‘‘TY'' sera 
compréhensible. 

Vous pouvez alors aborder les considérations globales, à savoir l'esti- 
mation du nombre maximum de fiches possibles : comptez 20000 
octets divisé par le nombre d'octets réservés pour une fiche. Exem- 
ple : un tableau DIM de chaînes totalise 57 caractères par ‘ligne’ : 
20000/57=350 fiches. Pour des DIM numériques, comptez deux 
octets pour des ‘'entiers'" et 5 octets (deux fois et demi plus !) pour 
des ‘réels’. Dites-vous bien que des rubriques, remplies ou non, occu- 
pent pratiquement la même place en mémoire. 

Pour notre vendeur de voitures d'occasion, ce maximum de 350 fiches 
ne sera pas un problème (on le lui souhaite...) ; en revanche, s'il s’agit 
de gérer une bibliothèque qui approche déjà les 2000 ouvrages, il fau- 
dra envisager un fichier par genre (policiers, voyages, etc.) où grou- 
pant quelques ‘petits’ genres. 

Le nombre, la nature, la longueur maxi des variables constituent ce que 
l'on appelle la structure d'un fich'er. Dans un logiciel du commerce, il 
est la plupart du temps impossible de la modifier par la suite. Heureu- 
sement, c'est toujours possible avec un logiciel ‘‘fait maison’’, en trans- 
férant le contenu d'un tableau DIM dans un autre de dimensions diffé- 
rentes (voir MPSA chapitre XII). 


LE CHOIX DU MENU 


De nombreuses options classiques dans un logiciel du commerce vont 
disparaître, parce que vous les avez fixées dans le programme. C'est 
le cas de : 

— Création du fichier : Toute la structure (DIM) ainsi que les noms des 
variables sont déjà dans vos lignes Basic = un gain de 3000 octets 
de Basic. 

— Chargement du fichier : || peut être automatique dès le lancement 
par RUN. Même le nom du fichier à charger est dans le programme. 
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Il vous faut maintenant prévoir les différentes ‘manœuvres’ qui vous 
seront réellement utiles dans la pratique. Voilà qui va supprimer bien 
des questions en sous-menus. Exemple : le tri (classement). En avez- 
vous vraiment besoin ? Si oui, sur quelle variable ? Ceci étant déter- 
miné dans le programme, il vous suffira de demander l'option TRI au 
menu principal pour que cela se fasse tout seul sans autres questions. 
Près de vingt lignes Basic de gagnées. Idem pour les autres options 
(Recherche, Edition sur imprimante, etc.). 

Le résultat final sera le suivant : un programme très complet faisant 
moins de 10 kilo-octets (autant de gagné pour le fichier). Un emploi 
simple donc rapide et sans ambiguités (beaucoup moins de questions 
à l'écran). Adjonction d'options généralement absentes dans les logji- 
ciels du commerce, par exemple enregistrement d'un fichier rassem- 
blant une sélection de fiches, ou encore impression bien calibrée sur 
des étiquettes auto-adhésives (étiquettes mailing), etc. 

Et pour un autre genre de fichier ? Vous chargez votre logiciel, vous 
supprimez des blocs de lignes, vous en modifiez, ajoutez d'autres et 
vous faites SAVE sous un autre nom de logiciel. C'est tellement rapide 
à faire que l’auteur en a déjà une vingtaine sur des sujets les plus divers. 
Un exemple : le plus simple d'entre eux, celui qui permet d'imprimer 
la liste des variables d'un programme Basic, en ordre alphabétique, telle 
celle relative à MACHDIM (chapitre IV). Cette liste est aussi sauvegar- 
dée sur disquette sur le nom MACHDIM.LIS. Cette extension ‘’.LIS" 
est donnée par le programme (‘’LISTVAR.BAS""). Moralité : simplicité + 
spécificité + rapidité + clarté = efficacité. Un aveu : ce programme a été 
réalisé en moins d'une demi-heure à partir d'un autre ! 

Ce chapitre préliminaire sur les gestionnaires de fichiers avait deux 
grands buts, vous faire prendre conscience que : 


1 — Définir les structures optimales d'un fichier est une étude longue 
et détaillée. Le temps passé à cela sera rapidement amorti, et 
récompensé par une efficacité spectaculaire et durable. 

2 — Il faut laisser les logiciels du commerce à ceux qui ne savent (ou 
ne veulent) pas programmer. En faisant un logiciel adapté au genre 
du fichier et à son usage futur, on est gagnant sur tous les 
tableaux. 


NOTE : Nous verrons au chapitre XV comment récupérer un fichier 
obtenu avec un logiciel du commerce (sans le déprotéger), afin de pour- 
suivre son exploitation par un logiciel personnel. 


COMMENT ALLONS-NOUS PROCEDER ? 


Un gestionnaire de fichiers est obligatoirement en ‘programmation 
structurée’’. Chaque module correspond à une option (saisie, recher- 
che, etc.). Tout part du MENU et revient ensuite à ce menu d'options, 
pour repartir vers d'autres options. De ce fait, on appelle parfois ‘’Pro- 


gramme Talon’ la partie du listing (vers le début) contenant le menu 
principal. 


Le chapitre qui suit concerne un cas particulier, une technique très spé- 
ciale qui ne s'adresse qu'aux possesseurs de lecteurs de disquettes, 
et de préférence aux AMSTRAD CPC 664 et 6128 plutôt qu'à 
l'AMSTRAD CPC 464. 

Les chapitres suivants traiteront chacun d'un module. A titre d'exem- 
ple, il s'agira d'un logiciel pour gérer la liste de vos... logiciels ! Il vous 
sera ensuite facile d'en enregistrer une version modifiée pour tout autre 
fichier. 


Chapitre X 


L'APPEL EN CHAIN MERGE 


Si vous ne possédez pas de lecteur de disquettes, vous pouvez passer 
au chapitre suivant. Si vous avez un CPC 464 équipé d'un ‘‘drive'’, 
cette technique est possible, chaque appel d'option va demander 25 
secondes (un bug du 464) au lieu de 3 à 4 secondes sur les CPC 664 
et CPC 6128. 

L'intérêt de cette pratique est de disposer de plus de 30 kilo-octets pour 
le fichier, même si le programme représente plus de 40 kilo-octets ! 
L'astuce est la suivante : le ‘’programme talon'’ reste constamment 
en mémoire RAM ; lorsqu'un module-option est appelé, il est lu sur la 
disquette et vient se greffer à la suite du talon. En fin d'usage, il est 
effacé et c'est un autre module-option qui vient se greffer au ‘’talon'’. 
Le fichier reste en permanence en mémoire. Conséquences : 


1 — La partie programme en mémoire dépasse rarement 3000 octets 
seulement. 

2 — Le fichier en mémoire peut être énorme (> 30000 octets). 

3 — L'ensemble des modules-programme sur la même face de dis- 
quette peut très bien dépasser les 100 kilo-octets... 

4 — Seul inconvénient : le chargement-greffe ( = CHAIN MERGE) d'un 
sous-programme n'est pas aussi instantané que l'habituel accès 
par un GOSUB. Sauf pour les virtuoses du 6128 qui logeront tous 
ces petits programmes en ‘‘disque virtuel’ dans les 64 K supplé- 
mentaires ; mais ceci sortirait du cadre de cet ouvrage. 


LA COMMANDE BASIC ‘’'CHAIN MERGE"’ 


Vous connaissez déjà la commande MERGE ‘‘’nom de programme’ qui 
ajoute au programme en mémoire le listing du programme ainsi appelé. 
CHAIN MERGE fait plus : les variables du programme en cours restent 
en mémoire et le programme se poursuit automatiquement sur ce qui 
vient d'être greffé. Une sorte de GOTO la suite. Programmes Talon + 
greffon forment un bloc. 
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SUPER IMPORTANT : Tous les modules appelables doivent commen- 
cer par le MEME NUMERO DE LIGNE ; par exemple 5000. De même, 
il est très prudent d'effacer l’ancien greffon (DELETE 5000 - ) avant 
d'en greffer un autre. 

Si les variables sont conservées, ce n’est pas le cas des ‘‘pointeurs” 
de numéros de ligne (GOSUB, GOTO, ON ERROR GOTO, etc.), idem 
pour les DATA. D'où ces précautions : 


e Ne pas utiliser de ON ERROR GOTO, ni ON BREAK GOSUB. 

e Si vous avez fait un READ sur tous les DATA du programme talon 
et que vous voulez lire des DATA au sein d'un greffon, il est prudent 
de confirmer par un RESTORE (exemple RESTORE 5050) ; sinon le 
READ risque de repartir du beau milieu des DATA du talon, pourtant 
déjà lues ! (Pour l'emploi rationnel des DATA, voir MPSA chapitre 
XII.) 


LE PROGRAMME TALON 


Le mot ‘‘talon’” a plusieurs synonymes selon les auteurs où traducteurs ; 
vous trouverz aussi ‘’souche'’, ‘’primaire'", ‘‘permanent’”, ‘'Base'’ ou 
même ‘’Mother File’. 

Ce programme comprend trois parties successives : 


e L'initialisation 

On n'y passe qu'une seule fois. C'est la définition des DIM, DEFINT, 
MEMORY, etc. La page d'écran-titre, bien sûr facultative, des défini- 
tions de SYMBOL, KEY. Et pourquoi pas le chargement du fichier à trai- 
ter ou à compléter. 


e Le menu principal 

Prenez la bonne habitude de le faire commencer à la ligne 1000, et ce 
dans tous vos programmes, car c'est super pratique. La fin d'exécu- 
tion d’une option se termine toujours par un GOTO 1000. En consé- 
quence, le module menu doit toujours débuter par une ré-initialisation 
des paramètres d'affichage, par exemple : 


1010 MODE 1:BORDER 1:PEN 1:PAPER O:CLS 


e Le CHAIN MERGE du sous-programme choisi. 

e Une ligne bidon (un REM) dont le numéro est celui par lequel 
commencent tous les sous-programmes ; dans notre exemple 5000, 
donc programmez en final 5000". 

A titre d'exemple, nous avons rédigé un programme très simple, voire 
simpliste, car il s’agit d'une démonstration plutôt que d'un utilitaire. 
Trois rubriques : nom, prénom, date de naissance mais en format 
AAMMJJ (860907 — 7 septembre 86). 


18 ‘“FICHMERG — LOGICIEL EN CHAIN MERGE 
28 ‘“FROGRAMME TALON (PERMANENT EN RAM) 
58 OFENOUT "BIDON":MEMORY HIMEM-—I]1:CLOSEO 
UT 

&6@ DIM PFROG#(15): NOMS DES SOUS-PROGR. 
786 DIM FIC#(2800,2): "FICHIER À GERER 

8@ ‘INDICES:G@=NOM ; 1=PFRENOM ; 2=DATE EN F 
ORMAT AAMNJI 

98 DATA CHARG,SAISIE,VISION,RECHER, SAUVE 
1086 FOR I=1 TO S:READ PROG#(I):NEXT 

11 NF=0: "NOMRRE DE FICHES EN RAM 

1008 ‘MENU € ET FOINT DE RETOUR ) 

191G BORDER 9:MODE 1:INK G,1:INK 1,24:1IN 
4 2,2G:INE Z,6:PFAPER 2:CLS 

1@20@ LOCATE 16,2:PFEN S:PFRINT "M E N U"3;5S 
PC(4); NF; "fiches" 

1Q0:0 FEN @:LOCATE 1@,35:PRINT "C — CHARGE 
MENT" 

18248 LOCATE 10,7:PRINT "S — SAISIE" 

185 LOCATE 1@,9:FRINT "V — VISIONNER" 
106@ LOCATE 18,11:FRINT "KR — RECHERCHE" 
1870 LOCATE 18,13:FRINT "E — ENREGISTREM 
ENT" 

1080 LOCATE 1@,1S5:PRINT "QO — QUITTER" 
11@G TEX+="CSVREC":GOSUE 500G 

1110 IF K=6 THEN BORDER 1:PFAFER G:PEN 1: 
CLS: DELETE 3541@-:END 

1120 CLS:LOCATE 12,1Z:PRINT "PATIENCE .. 


1130 CHAIN MERGE PROG+#(K) ,5000,DELETE 5Q 
e@- 

114@ END 

3000 ‘REPONSE A UN MENU 

3010 LT=LEN(TEX#):R#="" 

3020 LOCATE 15-LT,24:PRINT "Reponse ("; 
3050 FOR I=1i TO LT-1 

3040 FRINT MID#({TEX#,1,1)3:3","5:NEXT 
3050 PRINT RIGHT#(TEX#,1)3;")"3;CHR$ (154); 
CHR (243) ; CHR# (207) 

306@ TEX$=UPPERS (TEX#) 

32070 WHILE R#$="":R#=INÉEY#: WEND 

3080 R+=UFPFERS (R#) : K=INSTR(TEX#,R#) 
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5090 IF KH=Q THEN R$="":PRINT CHR#£(7) ; : 60 
10 =:aA70 

3108 RETURN 

5008 ‘LIGNE KRIDON OBLIGATOIRE 


En lignes 3000, vous reconnaissez notre routine ‘’Réponse à un menu’ 
qui d'habitude est en 50000 ; nous avons fait MERGE ‘’MENU'" puis 
RENUM 3000, 50000, car tous les numéros de lignes doivent être infé- 
rieurs à 5000. 

La ligne 1130 contient le CHAIN MERGE suivi de ses paramètres. Para- 
mètres obligatoires et non facultatifs comme le prétend à tort le manuel 
du CPC 464. 

Le ‘vrai’ END est celui de la ligne 1110 car le programme ne peut pas 
passer par la ligne 1140, laquelle est là pour la clarté du listing et comme 
sécurité secondaire. 


— Avant d'attaquer les sous-programmes, mentionnons deux points 
importants : 
a) ils se terminent tous par GOTO 1000, 
b) les possesseurs d'AMSTRAD CPC 464 devront les enregistrer en 
ASCII par SAVE'"nom'",A. Sinon plantage probable en chargement 
avec le message ‘"EOF MET'" : un bug du 464 qui fait que le char- 
gement d'un octet égal à 26, lors d'un MERGE ou CHAIN MERGE 
d'un programme Basic, est traduit par CTRL Z qui est le repère de 
fin de fichier d'un fichier ASCII. Ce bug a été corrigé sur les 664 
et 6128 et peut-être le sera-t-il sur les versions plus récentes du 
464 (?). 


LE MODULE SAISIE 


Très simple et très court, promis ! Les trois rubriques de chaque fiche 
sont saisies sur la même ligne d'écran. Le CHR$(11) des lignes 5050 
et 5060 fait remonter le curseur d’un cran pour rester sur la même ligne. 
Pas de contrôle d'entrée ni de rattrapage d'erreur, mais les valeurs man- 
quantes sont remplacées par un point (lignes 5070, 5080). 


5000 ‘SS PROGRAMME SAISIE 

SO010 MODE 2:INF @,20:INÉ 1,0: FAPER 0:PEN 
1:BORDER 16:CLS 

5070 LOCATE 20,2:PRINT "ENTRER NOM PRENO 

M DATE (AAMMJJ) O=QUITTER":PRINT 

5030 PRINT USING"####"3; NF +13: INPUT" ",FI 

CH {NF+1,0) 

SO4Q IF FICH(NF+1,0)="Q" THEN 5200 


5050 NF=NF+1: PRINT TAB (40) ; CHR# (11); : INF 
UT"",FIC#UNF, 1) 
5060 FRINT TAB(70) ; CHR# (11) 3: INPUT"",FIC 


(NF ,2) 
S070 IF FICHF(NF,1)="" THEN FIC#(NF,1)=". 
SOB8Q IF FICFINF,2)="" THEN FIC#H(NF,2)=". 


5100 GOTO 50358 
5208 GOTO 1068 


LE MODULE VISION 


Pour visionner à l'écran ou à l'imprimante les fiches à partir de tel 
numéro. Programme très élémentaire, mais remarquez le GOSUB 3000 
de la ligne 5040 : on a le droit puisque l'on est entre deux CHAIN 
MERGE, au sein d'un listing compact. 


5000 ‘SS PROG. VISION 

S21A MODE ?:INK @,13:INÉ 1,@:PAPER @:PEN 
1: BORDER 17:CLS 

S02@ PRINT: INPUT ” A PARTIR DE QUEL NUM 

ERO ‘3 NUM: NUM=VAL (NUM#) : IF NUM>NF THEN 

seau 

SA3G FRINT:FRINT " SUR ECRAN OÙ IMFRIMA 

NTE 7" 

SA49 TEX$-="El":GOSUB 3000: D-0:1IF K=2 THE 

N D-=8 

SO0SA CLS:PRINT #D,TAB(10); "FICHIER ":; NOM 

#:FRINT #D 

5040 FOR I=NUM TO NF 

5070 PRINT #D,USING"####":1I::PRINT #D," 
":FICH(I,@)::PRINT #D,TAB(4@);FIC#(I,1): 

: PRINT #D,TAB(7@):;FIC#(I,2) 

SARA NEXT 

5090 PRINT:PRINT "  PRESSEZ UNE TOUCHE": 

CALL &EEG6 

5190 GOTO 1000 


LE MODULE RECHERCHE 


Toujours dans le même style. On demande la rubrique, puis la valeur 

à rechercher. La ou les fiches sont affichées à l'écran. 

À noter que la recherche s'effectue avec la fonction INSTR (ligne 5100), 

beaucoup plus prudent que le signe =. 

Peu de choses à ajouter à ce sous-programme pour qu'il devienne très 
sérieux'" : 

ne sécurité pour bien demander un numéro de fiche compris entre 1 

et NF, 


— si rubrique — date, proposer >, < où = et opérer sur le VAL de cette 
rubrique. 


59008 ‘SS FROG.RECHER 

3010 MODE 2:INF @,2@:INE 1,1:PFAPER G@:FEN 
1: EORDER G: CLS 

502@ LOCATE 20,2:FRINT "RECHERCHE DANS 0 

UELLE RUBRIQUE 7?" 

50:00 FRINT:PRINT " Indice , Nom , Frenom 
, Date ou Quitter" 

5040 TEX$="INPDO":GOSUE 5006 

5050 IF K=S5 THEN 536@ 

5040 C=KH-2:LOCATE 10,19: INPFUT'VALEUR REC 

HERCHEE : ",X#: CLS: FRINT 

S07Q@ IF E=1 THEN N=VAL(X#) : GOSUR 5208:G0 

TO 5120 

5089 FOR N=i TO NF 

5090 IF K=i THEN N=VAL(X#):GOSUE S5280:6G0 

TO 5110 

5100 IF INSTRIFICHIN,C).X#) THEN GOSUR 5 

200 

511Q@ NEXT 

517ZQ PRINT CHR#(7):FRINT FIN DU FICH 
IER —  PFRESSEZ UNE TOUCHE" 

51230 CALL £&EEf6:GOTO 5408 

5208 ‘AFFICHAGE 

22190 PRINT USING "H#HH":Ns:PRINT " "sFIC 

FIN,G);:PRINT TAB(4@):FIC#IN,1)::=:PRINT T 

BE(70) ;FIC#{N,2) 

5220 RETURN 

2:00 GOTO 1088 


LES MODULES SAUVEGARDE ET CHARGEMENT 


Ils sont très courts et ressemblants. Pour un logiciel plus étoffé, il ne 
manquerait qu'une sécurité sur la syntaxe du nom de fichier. 
Autant dire qu'ils resteront si courts qu'ils pourraient être intégrés dans 
le programme talon. 


5088 ‘SS FROG. SAUVE 

53010 PAFER G:PFEN 1:HORDER 25:CLS 

5029 LOCATE 8,1@G: PRINT "ENREGISTREMENT D 
U FICHIER" 

38:9 LOCATE 108,14: INPUT "NOM : ".NOM# 
5249 OFENOUT NOM#:WRITEH9.NF 

5050 FOR I1=i TO NF 

506@ FOR J=@G TO 2 

2070 WRITE #9,FIC#(I.J):NEXT:NEXT 
S:08G CLOSEOUT 

5188 GOTO 1u@u 


9098 ‘SS PROGRAMME CHARG 

5010 HORDER 9:PAPER O:PEN 3:CLS 

2029 LOCATE 9,6:PRINT "CHARGEMENT D'UN F 
ICHIER: * 

500 PEN 2:LOCATE 168.12: INFUT'NOM : ".NO 
M$ ; 

840 OPENIN NOME: INFUTH9,NF 

5050 FOR I1=1 TO NF:FOR J=9 TO = 

50680 INPUTH9,FIC#H(TI,J):NEXT:NEXT 

007G CLOSEIN 

5080 GOTO 1908 


CONCLUSION 


Vous avez remarqué que nous changeons les couleurs d'un module à 
l'autre ; ce n’est pas pour faire carnaval mais c'est une mesure contre 
les étourderies de l'opérateur. 

Ce programme, bien qu'étant très court, fonctionne parfaitement ; il 
lui manque bien des options telles que le tri, les modifications de fichiers, 
les sélections, etc. Nous ne voulions qu'une ‘‘démo'' pour cette tech- 
nique adoptée pour les gros logiciels professionnels, réservée soit pour 
les très gros logiciels ou pour les très gros fichiers. 
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Chapitre XI 


LANCEMENT D'UN 
GESTIONNAIRE DE FICHIERS 


Cette partie comprend la définition de la structure du fichier et du pro- 
gramme, ainsi que le menu principal. 

Notre logiciel baptisé ‘'LOGICLAS"" est destiné à rassembler les titres 
et caractéristiques de logiciels pour AMSTRAD. En fait, il est écrit de 
telle sorte qu'il n'y a que quelques lignes à modifier pour l'adapter à 
tout autre domaine. Le listing complet représente près de 8800 octets, 
ce qui est très peu eu égard des performances et de sa souplesse d'uti- 
lisation. || surpasse très largement des logiciels du commerce faisant 
plus de 15 kilo-octets. Pourquoi ? Une multitude d'astuces de program- 
mation, que nous expliquerons au fur et à mesure, afin que vous puis- 
siez modifier ou transposer des passages ; car, répétons-le, il est aussi 
conçu pour être un LOGICIEL de BASE. 

Pour ‘'aérer'’ ce livre, nous avons éclaté la description de ce programme 
sur quatre petits chapitres. 


LA STRUCTURE 
(Lignes 10 à 270) 


Les deux premières lignes de REM sont très importantes pour le futur : 
le nom, le rôle, le micro concerné et la date ; non pas de la création 
mais de la dernière retouche. 

Sans ces deux lignes, imaginez-vous des mois, des années plus tard, 
en découvrant plusieurs versions de ce listing... Donc première consi- 
gne : de l'ordre ! 

La ligne 30, très classique, nous met à l'abri d'un défaut AMSTRAD : 
la ‘‘descente’’ de la zone des variables à chaque OPENOUT et OPE- 
NIN. Le MEMORY est tout de suite abaissé à sa valeur mini, ce qui nous 
évitera bien des ennuis. 


La ligne 40 décide que toutes les variables numériques sont des 
‘entiers’, sauf celles dont le nom commence par Z. Deux avantages : 
gain en mémoire (2 octets au lieu de 5) et boucles FOR NEXT deux 
fois plus rapides. On confirme les INK d'origine, une sage précaution. 
Dans un programme ordonné, toutes les définitions de DIM doivent être 
au début du programme (une prudence) et sur une même ligne car c'est 
plus pratique. Ce numéro de ligne sera 50 ou 100 parce qu'il est facile 
de s'en souvenir. 


18 ‘ LOGICLAS — GESTION DE LOGITHEQUE 

26 ‘ AMSTRAD CFC — Michel ARCHAMEAULT 

4.1984 

30 OPENOUT "HIDON'":MEMORY HIMEM-—I1:CLOSEO 
UT 

A4Q DEFINT A-Y: INK G@,i1:INK 1,24:1INK 2,20: 
INK 5,6 

58 NRU=8S : ‘ NOMBRE DE RUBRIQUES 

100 DIM FF(=0G,NRU),S(3@0) ,LR (NRU) 

11@ DATA TITRE,CODEDISC,GENRE ,EDITEUR,AU 
TEUR,DISC,K7,NOTICE ,REM 

120 FOR R=G TO NRU:READ F#(@,R):NEXT 

130 DATA 21,8,12,15,15,7,5,7,15 

140 FOR R=@ TO NRU:READ LR(R):NEXT: ‘Long 
ueurs Rubriques 

288 ‘ ADRESSES DES MODULES 


218 20008 SAISIE 

220 Z00@8G RECHERCHE SELECTION 

250 ‘ 4008 MODIFICATION EFFACEMENT 
248 008 TRI 

250 6808 IMPRESSION 

268 7808 SAUVEGARDE 

270 8040 CHARGEMENT 


1AQ@R ‘ MENU 

1@10 MODE 1:1INKH 1,24: PAFER @:FEN Z:BORDE 
R 123CLS 

1@2Q@ LOCATE 11,2:PRINT LOGITHEO 

UE": PEN 2 

1Q:Q LOCATE :@,4:PRINT NF:'"fiches'":PFEN 1 
1948 DATA SAISIE,RECHERCHE-SELECTION, MOD 
IFICATION-EFFACEMENT,TRI,IMPRESSION,ENRE 
GISTREMENT ,DISC-UTIL, CHARGEMENT, QUITTER 

1QAS0Q RESTORE 1040:FO0R I=1 TO 9:READ OPT# 


1069 LOCATE 10,1#2+4:PRINT LEFT#(OPT#,1) 
;" — ";OPTH:NEXT 

1Q7@ TEX$="SRMTIEDCO":FEN 2:GOSUR 50000 
198@ ON K GOSUE 2000,:000,4000,5000,4000@ 
.7800,50000,2000,1100 

1809G GOTO 1020 

110Q EORDER 1:MODE 1:PAFER G:FEN 1:CLS 
111Q@ END 


Les DIM 

Le fichier sera en mémoire dans le tableau F$ (F comme fiche) ; 300 
fiches maxi avec 9 rubriques numérotées de O à 8. C'est une dimen- 
sion (300 x 9) qu'il est rare de dépasser dans la pratique dans d'autres 
domaines. Avec moins de rubriques, on pourrait augmenter le nombre 
de fiches. 

Le tableau S(300) est numérique, un nombre entier par ‘‘ligne''. S veut 
dire sélection, c'est dans celui-ci que nous placerons les numéros des 
fiches sélectionnées par tel critère. Pourquoi 300 lignes réservées alors 
que moins serait plus réaliste pour une sélection ? Parce que ce DIM 
va aussi nous servir au tri du fichier ; un tri ‘’turbo'’ dont nous parle- 
rons plus loin. 

Le tableau LR(8) est numérique ; il va contenir les Longueurs maxi des 
Rubriques de O à 8. En effet, pour éviter des gaspillages de mémoire, 
il faut calibrer les variables chaîne d’un tableau DIM. 


Les Rubriques 

Elles sont dans les DATA de la ligne 110. Et nulle part ailleurs. Il va 
donc être facile et sûr de changer leurs noms, par exemple pour un autre 
logiciel, ou pour changer un nom de rubrique qui ne vous semble pas 
très explicite. 

Pour ce logiciel, nous avons défini ceci : 

— TITRE (21 caractères), c'est le nom commercial. 

— CODEDISC (8 caractères) est le nom d'appel sur disquette. 

— GENRE (12 caractères). Arcade, DAO, Aventure, etc. 

— EDITEUR (15 caractères). 

— AUTEUR (15 caractères). 

— DISC (7 caractères) Ex.: 12B=disc n° 12 face B. 

— K7 (5 caractères) =cassette (original, numéro, etc.). 

— NOTICE (7 caractères) F =Français ; À = Anglais, IN = Incluse. 

— REM (15 caractères) Remarques diverses. 


Ces longueurs maxi ont fait l’objet d'une étude très méthodique ; ainsi 
21 pour le titre car cela correspond au nom répertorié le plus long 
(‘WAY OF EXPLODING FIST’). De plus, il faut vérifier que le total de 
ces valeurs plus le numéro de fichier, plus deux caractères pour sépa- 
rer chaque rubrique, ne dépasse pas la largeur maxi pour notre impri- 
mante... On arrive ainsi à 130. 
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Il faut également veiller à ce que le nom de rubrique ne soit pas plus 
long que sa longueur maxi, à cause des têtes de colonnes sur les 
tableaux d'impression. 

Ces noms vont être mis en ligne zéro du tableau DIM F$. Mais cette 
ligne zéro ne sera pas sauvegardée avec le reste du fichier ; ainsi on 
garde le loisir de modifier ces noms en ligne 110, sans rien toucher au 
fichier existant. Chose le plus souvent impossible avec les logiciels du 
commerce. 


LE CHANGEMENT DE STRUCTURE 


Vous désirez à présent construire un tout autre fichier, par exemple pour 

gérer vos enregistrements de films sur cassettes vidéo. Oh ! que c'est 

rapide ! 

— Changez le nom en lignes 10 et 1020 et la date en ligne 20. 

— Changez le nombre de rubriques ligne 50. 

— Eventuellement le nombre de fiches maxi dans les DIM de la ligne 
100 (ici = 300). 

— Changez les noms des rubriques ligne 110 et leurs longueurs maxi, 
ligne 130. 

— Le TEX$ des menus de rubrique. ° 


IMPORTANT : Les numéros de rubriques vont de zéro à NRU. Donc 
pour 9 rubriques NRU =8 (ligne 50). 


Vous constatez qu'il faut moins de dix minutes pour concevoir un 
‘’frère'" au logiciel "LOGICLAS"", et à la sauvegarde sous un autre nom ; 
puisque tout est paramétré. 

Si vous avez besoin de rubriques numériques, prévoyez en ligne 100 
un DIM numérique ‘‘parallèle'’ au DIM F$. Autre solution : entrez ces 
nombres en DIM F$, en sachant que pour la recherche ou le tri, il fau- 
dra considérer le VAL de ces rubriques. 


LES ADRESSES DES MODULES 
(Lignes 200 à 270) 


Ces REM constituent une table des matières très précieuse. Ce sont 
les numéros de ligne où commencent les divers sous-programmes. Si 
on veut modifier le module d'édition, on a plus vite fait de taper LIST 
— 1000, que de rechercher le listing pour y découvrir que c'est à partir 
de 6000... 


LE MENU 


Tradition oblige, toujours en ligne 1000. N'oubliez pas que c'est le point 
des départs et retours. Donc on commence par confirmer les paramè- 


tres ‘’standard'’ d'affichage, en ligne 1010. En principe, lorsqu'ils sont 

modifiés dans un sous-programme (et c'est le cas), on remet les ‘’cho- 

ses en place’ juste avant le RETURN final de ce module. Mais lors de 

la mise au point ou d'un imprévu, le programme s'y arrête ; on repart 

alors par l'éternel GOTO 1000 et sans cette ligne 1010, ce ne serait 

pas triste ! Exemple : lettres noires sur fond bleu marine quand on vient 

de la saisie... 

La ligne 1030 fait afficher en haut à droite le nombre total de fiches 

en mémoire (NF). Ce n'est pas un gadget, c'est indispensable. 

Les trois lignes 1040 à 1060 vont afficher la liste des options précé- 

dées de leur lettre initiale. Plusieurs choses à remarquer : 

— les noms sont en DATA (modifications faciles), 

— le RESTORE 1040 de la ligne 1050 ne sert pas la première fois ; 
obligatoire pour tous les GOTO 1000 suivants, 

— je LOCATE de la ligne 1060 est paramétré. Si on ajoute ou supprime 
une option, cette ligne ne change pas, 

— la lettre initiale est ‘’sortie’’ par un LEFTS (ligne 1060). 


On ne présente plus le TEX$ et le GOSUB 50000 de la ligne 1070 (cha- 
pitre Il). 

Après les GOSUB de la ligne 1080, on tombe sur le GOTO 1000 qui 
redonne le menu en fin de chaque option. 

L'option ‘’quitter'” (lignes 1100-1110) réinitialise les paramètres d'af- 
fichage et fait un CLS + END. On a alors la main pour faire n'importe 
quoi (sauvegarde du programme, listing, etc.), tout en conservant le 
fichier en RAM. On peut repartir par GOTO 1000. 


Le nom des options 

On doit veiller à ce que chaque nom commence par une lettre diffé- 
rente. Ne présentez jamais une liste d'options en les numérotant de 1 
à … Cela est pénible pour l'opérateur qui perd du temps à ‘’décoder'’ 
le menu. Après il croit se souvenir du nombre à taper et c'est le risque 
d'erreur. 

Nous avons mis ensemble des actions différentes telles que Recher- 
che et Sélection ou Modification et Effacement. Ne croyez pas que 
c'était pour gagner deux lignes ! C'est parce que dans l'utilisation pra- 
tique, ces actions sont menées conjointement, alternativement. Il serait 
donc lourd de repasser alors par le menu principal. 

Veillez également à ce que les options les plus fréquemment appelées 
soient en haut du menu. C'est pour cela que ‘’Chargement'" est tout 
en bas, car on ne le demande qu'une seule fois, au début. 

Le choix des couleurs a aussi son importance. lci, le titre ‘'LOGITHE- 
QUE" est en rouge sombre sur fond marine, peu lisible, de même que 
la liste des codes en bleu ciel sur la ligne 24. En revanche, la liste des 
options ‘‘crache”’ en jaune sur ce fond. Or c'est là que l'opérateur cher- 
che ce qu'il veut ; il est donc ‘‘’guidé’’ par l'écriture voyante. 

Vous constatez que la combinaison, la somme de menus détails d’as- 
pect anodin, va rendre votre programme sympathique à l'utilisateur. 


Un menu principal clair et pratique est une chose primordiale puisque 
l'on y revient souvent. 

Vous allez dire ‘'je ne vais pas commercialiser mon programme : l'utili- 
sateur, c'est moi !’”. Je vous répondrai ‘‘raison de plus”’ ; on n'est jamais 
aussi bien gaté que par soi-même. 


CONCLUSION 


Faites un bref bilan de tout ce que l'on vient de définir et de mettre 
en marche, et maintenant considérez combien le listing est court. Les 
boucles FOR NEXT, les DATA et READ y sont pour beaucoup ; et en 
plus, cela nous confère quelque chose de facilement remodelable. 
Lorsque l'on débute en Basic, on a trop tendance à programmer des 
suites de PRINT, parce que l'on a l'habitude du stylo... Alors que si on 
se donne la peine de cogiter un tout petit peu, tout se fait en deux ou 
trois lignes (voir lignes 1040, 1050, 1060). 


LOGITHERUE 

iibvhés 
— CHARGEMENT 

- SAISIE 

— RECHERCHE-SELECTION 

— MODIFICATION-EFFACEMENT 
TRI 

— IMPRESSION 

- ENREGISTREMENT 

- DISC-UTIL 

- QUITTER 
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Chapitre XII 


SAISIE, MODIFICATION, 
EFFACEMENT DE FICHES 


L'écran de saisie des données est celui sur lequel l'opérateur passe le 
plus de temps ; en conséquence les erreurs par étourderie vont devenir 
fréquentes au bout d'un quart d'heure si la ‘‘manipulation'" demande 
trop d'attention. 

On doit pouvoir se passer de regarder l'écran, seulement les notes lues 
qu'il faut entrer au clavier. Autrement dit, l'opérateur, pour se concen- 
trer sur ses notes, doit avoir confiance en la machine : 

1) qu'il ait peu de risques de se tromper, 

2) que si cela arrive, la retouche soit facile. 

Un tel tableau de saisie, est-il de l'utopie ? Le nôtre prouve le contraire. 


L'ECRAN DE SAISIE 


Fond bleu ciel, en MODE 1. En haut, le numéro de la fiche en cours ; 
c'est donc une page d'écran par fiche. 

Au-dessous, une ligne par rubrique ; nom de la rubrique suivi par l’es- 
pace d'écriture délimité par le signe >. 

Ces noms de rubriques ont des longueurs différentes, mais les zones 
d'écriture partent toutes de la même tabulation horizontale. Couleurs 
des lettres, noir. 

Sous les rubriques, deux autres lignes, en rouge : ‘’SUIVANTE"’" et 
QUITTER". 

Au départ, nous avons donc cette page de saisie avec le curseur posi- 
tionné au début de la première rubrique. 


Début de saisie : on tape ENTER après chaque inscription, mais, et ce 
point est intéressant, on peut descendre le curseur par la flèche ‘’bas’' 
aussi bien que par ENTER. On peut aussi remonter par la flèche ‘‘haut”, 
pour corriger une rubrique déjà remplie. Faire ENTER sur une rubrique 
déjà écrite ne la modifie pas. 
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Le secret de ce confort est le suivant : c'est la position verticale du 
curseur (fonction Basic VPOS) qui détermine à quelle rubrique corres- 
pond la chaîne que vous venez d'entrer ; tout simplement. 


IMPORTANT : Si vous corrigez, vous devez retaper tout le contenu de 
la rubrique, car c'est un LINE INPUT (ligne 2030), lequel vous autorise 
les virgules, blancs au départ, guillemets, etc. 

Si vous n'avez rien à écrire dans plusieurs rubriques successives, vous 
gagnerez du temps en descendant avec la flèche ‘bas’. 

Si vous arrivez sur la ligne rouge ‘'suivante’” à l'aide de la touche ENTER, 
un beep sonore vous prévient qu'au prochain coup il passera à la fiche 
suivante, ce qui vous invite à vérifier notre page d'écran : c'est pour 
la saisie rapide sans regarder l'écran (ligne 2035 : faites-la sauter si 
ce beep vous agace). 

Le UPPERS$ de la ligne 2030 va tout mettre en majuscules. C'est là une 
sage précaution qui évitera des ratés dans les options Recherches, 
Sélection ou Tri. 

Si vous avez entré une chaîne trop longue, un beep vous prévient qu'il 
faut la retaper (ligne 2060). Une chaîne vide (ENTER) n'est pas prise 
en compte (ligne 2070) 

En fin de fiche, les valeurs manquantes sont remplacées par un point 
(lignes 2410-2420). 

Vous remarquerez que la création de la page de saisie est un sous- 
programme à part (lignes 2500 à 2550) parce qu'il sera appelé par d'au- 
tres options. 

Pour quitter la saisie, descendez le curseur par la touche flèche ‘‘bas” 
sur la ligne rouge ‘'quitter'’ ou plus bas qu'elle et ENTER : la dernière 
fiche tapée est mémorisée et vous revenez au menu principal. 


2000 ‘ SBAISIE 

28018 N=NF+1:GOSUER 2500:H=5 

2020 LOCATE 2,23:PRINT "Pour corriger un 
e rubrique utiliser les fleches vertical 
es." 

2830 LOCATE 13,H:LINE INPUT "",R#:R#=UPF 
ERE (RE) : H=VPFOS HD) —1 

20535 IF H=NRU+S THEN FRINT CHR#(7): 

2040 IF H=NRU+6 THEN GOSUE ?4@@G:G0OT0 708 
G: ‘FIN DE FICHE 

2050 IF HÈi=NRU+7 THEN GOSUR 2490:G0T0 79 
GG: ‘FIN DE SAISIE 

2068 IF LEN(R#)2LR(CH-S) THEN FRINT CHR 
7);:GO0OT0 27030 

2070 IF R$£5"" THEN F#HCN,H-S)=R# 

208A H=VFOS(#G):GOTO ?2:0 


2408 ‘ FIN DE FICHE 

2410 FOR K=@ TO NRU:IF LEN(F#(N,R))=@ TH 
EN F$IN,R)="." 

2420 NEXT:NF=N 

243@ RETURN 

25@@ ‘ECRAN FICHE 

2510 PAPER 2:INÉ 1,@:FEN 3:CLS 

2520 LOCATE 12,2:PRINT "FICHE numero";N: 
FEN 1 

2520 FOR R=@ TO NRU:LOCATE 1@-LEN(F#(0,R 
D), S+R: PRINT F$(0,R)3" 3 "3 SPCCLR(RD) "> 


254@ NEXT 

2550 PEN Z:FRINT “  SUIVANTE":PRINT ” 
QUITTER":PEN 1 

2590 RETURN 

2990 INE 1,24:RETURN 


Une remarque concernant la longueur des rubriques et leurs noms : nous 
sommes en MODE 1 parce que c'est plus lisible, surtout sur l'écran cou- 
leur ; donc nous disposons de 40 caractères par ligne à répartir entre 
le nom, un séparateur, la longueur maxi de la chaîne-rubrique et le repère 
d'extrémité ">". 

Notre LINE INPUT démarre en colonne 13, ce qui laisse une longueur 
maxi de 27 caractères et un nom de rubrique ne dépassant pas neuf 
caractères (ligne 2530). Bien sûr, tout cela est modifiable en changeant 
notre tabulation. Dans les cas limites, il vous faudra passer en MODE 2 ; 
pensez en ce cas à modifier le LOCATE de la ligne 2520 : 32 au lieu 
de 12. 


MODIFICATION ET EFFACEMENT 


Lors de l'appel de cette option, on vous demande si vous désirez modi- 
fier, effacer ou quitter. Dans les deux premiers cas, on vous demande 
le numéro de la fiche à traiter. Si vous l'ignorez, revenez à l'option 
Recherche, que nous verrons plus loin. 


4008 ‘ MODIFICATION-EFFACEMENT 

41 INK 1,274:PEN 1:FAPER G@:CLS:LOCATE 7 
12: PRINT "Modifier ,Effacer ,QBuitter ?7'iT 
EX+-"MEC":GOSUER 54000 

402@ ON FE GOTO 4180,4500,490@ 

4108 CLS:LOCATE 8,12:1INFUT "MODIFIER FIC 
HE NUMERC ",N# 
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A411Q@ N=VAL(N#H):IF N=@G OR N>NF THEN 4100 

412@ GOSUB 2590:FOR KR=QG TO NRU:LOCATE 135 
3R+S: PRINT F#H{N,R):NEXT 

4130 FEN Z:H=5 

414QG LOCATE 15,H:LINE INPUT'"'",R#:R#=UPPE 

R# (CRE) : H=VPOS (HG) —1 

4145 IF H=NRU+S THEN PRINT CHR#(7); 

4150 IF H=NRU+é THEN N=N+i:IF N£=NF THEN 
GOTO 412@ ELSE GOTO 4000 

4160 1F H:=NRU+7 THEN 4080 

4170 IF LEN(R#):LR(H-S) THEN FRINT CHR#( 
7):;:G0T0 4140 

4180 IF R#F2:"" THEN F#(N,H-5) =R# 

4190 H=VPFOS (#0) :G0OTO0 4146 

4500 FSEL=0:NS=0:NE=0:E-0 

4518 CLS:LOCATE 4,12: INPUT'"'EFFACER Fiche 
numero (ou Q) ",N# 

520 IF UFFER£(N#)="Q" THEN 4608 

453@ N=VAL(N#):1F N=@ OK NÈNF THEN PRINT 
CHR# (7): GOTO 4510 

4540 E=E+1:S{(E)=N:NE=E:GOTO 4518 

4608 ‘ KENUMEROTATION 

4810 IF NE=Q THEN 4908 

4620 LOCATE 15,15:FRINT "FATIENCE ...":6G 
OSUKR 4700 

4850 FOR J=NE TO 1 STEF —-1:N=S(J) 

4640 FOR T=N TO NF-i 

4650 FOR R=Q TO NRU:FH(T,R)=F#(T+1,R):NE 
XT 

4660 NEXT:NF=NF-1 

4678 NEXT:G0OTO 4900 

4760@ ‘TRI 

4710 F-0:S(@)=-G:FOR J=i TO NE 

47208 IF S(J)>=S{J-1) THEN 4740 

47350 S(B)=S(J):S(J)=S(J-1):S(J-1)=S\0):F 
= 

4748 NEXT:1IF F=1 THEN 4710 

4900 RETURN 


Aucun risque de demander à modifier une fiche que l'on ne veut pas 


rectifier (erreur de numéro) : Options ‘‘suivante'” ou ‘‘quitter””. 


La Modification 

C'est la même page d'écran que pour la saisie, mais bien sûr remplie. 
La technique d'écriture reste la même : le curseur vous attend au début 
de la première rubrique et vous pouvez le déplacer par la touche ENTER 
ou les flèches ‘‘haut'' ou ‘‘bas'”’. 

La grande différence visible est que la chaîne corrigée que vous allez 
taper va s'écrire en rouge, en superposition sur les lettres noires exis- 
tantes. Ce changement de couleur lève toute ambiguité du genre ‘'Ai- 
je corrigé la rubrique précédente ?'. 

Pour remplacer une rubrique remplie par ‘‘valeur absente’”, il vous fau- 
dra taper un point et ENTER ; ne tapez pas des blancs pour effacer l’an- 
cien mot. 

Une fois la fiche modifiée, vous retrouverez les mêmes options ‘'sui- 
vante'’ ou ‘quitter’. 


L'Effacement 

C'est bien sûr plus simple. On entre le ou les numéros de fiches à effa- 
cer et en final on tape ‘‘Q'”’. Apparaît alors le message ‘‘Patience'”, car 
le programme renumérote les fiches suivantes en les ‘‘’remontant'” pour 
combler les vides créés par les fiches effacées. 

Le fonctionnement est, lui, assez complexe (lignes 4500 à 4670) : 
On va utiliser le tableau DIM S, où on loge seulement les numéros que 
vous avez entrés. || y en a NE (=nombre d'effacées). 


FICHE numero 2iÿ 


TITRE : LE os INSOMNIAQUE 2 
CODEDISC : MICRIN 
GENRE : AVENTURE ? 
EDITEUR : CAFEINE SOFT ? 
AUTEUR : J.H SCHROUFT à 
Poe : 12B 144? 
NOTICE : À IN ? 
REM_: TRES DIFFICILE ?} 
SUIURNTE 
QUITTER 


Pour corriger une rubrique utiliser les 
fleches verticales. 
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On commence par le bas du ficher, c'est-à-dire que l’on va d'abord trai- 
ter (remplacer en remontant) la fiche à effacer de numéro le plus fort. 
Il'est de ce fait prudent d'effectuer un tri préalable sur les numéros de 
lignes entrés en DIM S(NE) (lignes 4700 à 4740). 

On remonte ainsi NE fois les fiches restantes en terminant par l’efface- 
ment de la fiche de numéro le plus faible. À chaque effacement le nom- 
bre total de fiches NF est diminué de un (ligne 4660). 

Attention au piège ! Au vu de votre tableau listé sur imprimante, vous 
décidez d'effacer les fiches 24, 50 et 78. C'est fait. Ainsi la 25 est 
devenue la 24 ; la 51 devient la 49 et la 79 devient la 76. OK ? Donc 
votre listing est faux à partir du n° 24, etilne faut plus dire en le regar- 
dant de nouveau ‘Tiens, j'ai oublié d'effacer aussi la 64... ". 

Elle n'est pas celle que vous croyez ! Repassez alors par l'option 
‘Recherche’ pour en connaître le numéro actuel. 


Chapitre XIII 


RECHERCHE, SELECTION 
ET TRI DE FICHES 


C'est là le grand atout des fichiers informatiques, le côté le plus spec- 
taculaire. Un ‘‘gestionnaire de fichiers'” doit être très performant en ce 
domaine, sinon il sera rejeté par la ‘clientèle’ car la concurrence est 
très active... L'expérience professionnelle m'a appris que le nouveaur- 
venu à l'informatique est toujours enthousiasmé par ce type de logi- 
ciels, mais très rapidement c'est celui-là même qui va devenir le plus 
exigeant. 

L'auteur se trouve alors dans l'obligation de présenter quelque chose 

qui soit égal ou supérieur aux logiciels du commerce (pour certains, c'est 

plutôt facile... ). Voilà donc ce qui vous attend : 

— Recherche et sélection ne font qu'un. On demande d'abord dans 
quelle rubrique se situe votre critère ; puis l'élément à ÿ rechercher 
ou à rejeter. 

— L'écran vous annonce combien il a trouvé de fiches, et vous demande 
si vous voulez mieux préciser la sélection (autres critères), ou visua- 
liser la sélection à l'écran, ou l'imprimer où quitter vers le menu. 

— De retour au menu, vous pouvez trier votre sélection en ordre alpha- 
bétique par la rubrique de votre choix. 

— Imprimer où sauvegarder votre fichier de sélection ainsi trié. 

— Un tri à très grande vitesse (l’auteur en est assez fier...), puisqu'un 
fichier de 149 fiches à trier par la rubrique TITRE (la plus longue, 
21 caractères), ne demande que soixante-trois secondes. Et c'est 
en Basic. 


RECHERCHE, SELECTION 


Nous allons nous servir du tableau DIM S(300), qui va se garnir des 
numéros de fiches sélectionnées. De même que DIM F$ allait de 1 à 
NF, DIM S va de 1 à NS (NS = nombre de sélectionnées). 
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L'écran présente la liste des rubriques où va se trouver votre critère 
de repérage. 

Ceci fait, un astérisque rouge se place en face de la rubrique afin de 
vous rappeler (ou confirmer) votre choix. C'est un petit gadget pour 
gens étourdis. 

En bas d'écran on vous demande alors d'entrer votre élément de 
repérage : 


La 


Nous utilisons la fonction INSTR ; donc signifiant ‘’qui contient’. 
Exemple avec rubrique GENRE vous voulez les jeux d'arcade. Comme 
élément, vous pouvez entrer ARCADE ou ARCA ou CADE... 

En faisant précéder votre élément du symbole ‘‘flèche en haut’ (à 
gauche de la touche CLR) signifiera ‘’ne contenant pas'”’. (Le choix 
de ce symbole vient du fait qu'il représente la fonction logique NOT 
sur les claviers IBM en AZERTY). Un exemple : vous voulez la liste 
des logiciels dont vous possédez une version sur cassette, genre : 
‘’K7"" : Elément : ‘’1.”’. C'est-à-dire non manquant, donc existant. 
Si à la question élément vous répondez par la touche ENTER toutes 
les fiches seront sélectionnées. Nous allons voir plus loin que cela 
peut être utile. 

Vous pouvez taper votre élément en lettres minuscules. Ici comme 
à la saisie, tout en traité en UPPERS. 

La recherche par la fonction INSTR donne lieu parfois à des surpri- 
ses : ainsi, si on veut isoler les logiciels se trouvant sur la face B 
de la disquette n° 4, on a demandé ‘’DISC'’ puis ‘’4B’’. Dans la sélec- 
tion, on aura aussi les ‘’14B'""... Pas grave, on va demander ensuite 
‘’Préciser'’. Encore rubrique DISC, mais on demande différent de 
14B, ce qui va éliminer ces indésirables. 

sélection faite (c'est ultra rapide), l'écran affiche, par exemple : 


‘J'ai trouvé 42 fiches” 
‘Préciser, Voir, Imprimer, Quitter ?” 


‘’Préciser'" va nous représenter la liste des rubriques, élément, etc. 
Il va de soi que cette deuxième sélection va s'effectuer sur la pre- 
mière sélection, donc moins de fiches à la sortie. On peut demander 
‘Préciser’ autant de fois que l’on veut, c'est toujours sur la sélec- 
tion précédente. C'est le flag FSEL qui indique au programme s'il 
faut travailler sur le fichier global ou sur une sélection (ligne 3100). 


3008 ‘ RECHERCHE ET SELECTION DE FICHES 
S010 F=0:FSEL=G:FAPER G:PEN 3:CLS 

3020 PAPER @G:PEN 3:CLS 

30:08 LOCATE 2,2:PRINT "RUBRIQUE pour Rec 
herche , Selection :":PEN 1 

3040 FOR R=G TO NRU:LOCATE 15,4+Rx2:FPRIN 


T 


LEFTH(F#(B,R),1)3" — ";:F#(@,R):NEXT:LO 


CATE 15,22:PRINT “QG — QUITTER" 


3058 PEN 2: TEX#="TCGERDKNRG" : GOSUE 588000 
:R=K— 1 

SG6Q IF KH=1Q@ THEN 3400 

58@7QG LOCATE 1,24: FRINT SFC(39):LOCATE 12 
34+R#2: PEN Z:PRINT ‘"x":NEG=0@ 

54089 FEN 2:LOCATE 2,24:FRINT'"'QOUEL ELEMEN 
T (* pour <5)7 "3;:PEN 1: INFUT"",EL#:EL#= 
UPPERS (EL#)2:1F LEFT#(EL#,1)=""" THEN NEG 
=—1:ELF=RIGHTS(ELE,LEN(EL#) —-1) 

50835 IF LEN(EL#):LR(R) THEN FRINT CHR#(7 
):GO0OTC0 5670 

3070 FEN 1:CLS:LOCATE 15,10: PRINT "PFATIE 
NCE .,." 

3100 IF FSEL=@ THEN 3150 

5110 FOR N=1 TO NS:IF (CINSTR(FÆ(S(N) ,R), 
EL#)=@G)=NEG THEN F=F+1:S{F)=S{(N) 

3120 NEXT:NS=F:GOTO 3150 

3150 FOR N=i TO NF:IF (INSTR(FH(N,R) ,EL# 
}=B)=NEG THEN F=F+1:S(F)=N 

3140 NEXT:NS=F 

3150 LOCATE 9,1Z:FRINT "J'AI TROUVE”"; NS; 
"FICHES." 

3168 LOCATE 4,15: PRINT "Preciser ,Voir ,Im 
primer ,Quitter ?":TEX#="PVIO":GOSUE S5GGG 
(ra) 

3170 ON KE GOTO 3180,3:00,:190,:390 

3188 FSEL=i:F-@G:G0OTO 3020 

31970 FSEL=Ii:GOSUER 6@00:CLS:GOTO 3150 
2300 ‘ VISION 

3216 FOR I=i TO NS:N=S(I1):GOSUE 2500 
53520 FOR R=G TO NRU:LOCATE 13,5+R:FRINT 
FE{N,R):NEXT 

3358 H=NRU+6 

3348 LOCATE 13,H: INPUT "",0#:H=VPOS (#0) — 
1 

3250 IF HE=NRU+S THEN 23570 

33608 IF HÈNRU+éS THEN I=NS 

357Q NEXT 

3380 INF 1,74: G0T0 :0@080 

3398 RETURN 

3408 FSEL=0:RETURN 
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— "Voir" va montrer à l'écran le contenu des fiches sélectionnées. 
C'est le même écran qu'en ‘'Modification'" mais le curseur est déjà 
sur la ligne ‘'SUIVANTE”" ; vous n'avez qu'à presser ENTER pour 
visualiser toutes les fiches. Pour quitter, toujours pareil, descendre 
d'un cran où plus par la flèche ‘‘bas'” et ENTER. 

— ‘‘Imprimer'" concerne bien sûr votre sélection, et ‘’Quitter'’ renvoie 
au menu principal. 


NOTE : Certains ont pu s'étonner de ne pas voir l'option ‘’ VISIONNER" 
au menu principal. On peut la remplacer par l'option ‘'RECHERCHE" 
où l'on demande n'importre quelle rubrique et comme élément, on 
répond par ENTER. Toutes les flèches étant ‘sélectionnées’, on 
demande la sous-option ‘’VOIR''. 

S'il s'agissait de contrôler les dernières fiches saisies vous aurez meil- 
leur compte à demander l'option ‘’Modification'” puis un numéro de fiche 
proche de la fin de fichier. || vous faudra descendre à chaque fois le 
curseur sur la ligne rouge ‘'SUIVANTE"" ; c'est un peu moins pratique. 
En fait, la pratique montre que lorsqu'un fichier possède déjà quelques 
dizaines de fiches, il est bien rare que l'on ait envie de les faire défiler 
une par une à l'écran... C'est donc sans remords que l'on s'est dis- 
pensé de créer une option ‘‘Vision''. 

Il vous serait facile de l'ajouter en demandant le numéro de départ puis 
en faisant un GOSUB 3300. 


La fonction NOT 

Matérialisée par NEG = — 1 dans la ligne 3110, elle demande quelques 
explications de fonctionnement. Petit exercice : Faites PRINT 34> 22 
(en mode direct). L'écran répond — 1, parce que (34 > 22), c'est VRAI. 
À présent faites PRINT34 > 74, réponse O, parce que c'est FAUX. 
Dans le programme on initialise la variable NEG=O, ligne 3070 
(NEG = NEGATIF). 

Ligne 3080, si le caractère à gauche de l'élément entré est ‘‘fléché en 
haut'", NEG est mis à —1, parce que c'est vrai. 

Ligne 3130, la ‘‘grande parenthèse’ contenant INSTR est l'équivalent 
de ‘‘l'élément n'est pas dans cette fiche’. C'est une affirmation, si elle 
est vraie, elle vaut — 1, ou zéro si elle est fausse ; on compare donc 
cette valeur à celle de NEG et si elles sont égales, le numéro de la fiche 
est sélectionné. 

Pour ceux d'entre vous qui découvrent ainsi cette facon de procéder, 
sachez que cela s'appelle des ‘’opérations logiques’ (rien à voir avec 
l'adjectif ‘’logique'" que vous connaissez). Et si vous voulez ‘‘en met- 
tre plein la vue”” à votre auditoire, utilisez le synonyme plus pompeux 
de ‘’opérations BOOLEENNES""... 


LE TRI 


Ce serait mentir de dire que c'est simple. L'essentiel est plutôt d'en 


retenir la ‘’stratégie’’ générale, et elle au moins est facilement compré- 
hensible. 

On devrait plutôt parler de ‘‘classement””, ce serait plus français, mais 
“tri” est entré dans le langage courant informatique. 

Il y a deux sortes de tris ; sur des valeurs numériques, c'est du plus 
petit au plus grand, mais ici nous n'en avons pas, et le tri ‘’alphanumé- 
rique’” (notre cas) qui ne tient compte que des CODES ASCII des carac- 
tères rencontrés. On dit alors que ‘’A’’<''B'’, d'où l’ordre alphabéti- 
que. Après ce petit préambule, revenons au programme. 


5680 
2016 


TRI 
FEN 1:CLS:LOCATE 2,1Z:FRINT "TRI su 


r Fichier Selection ou Quitter 7'":TEX$-" 
FSQ'":FEN Z:GOSUR SQQQD:CT=KH: IF KH=3 THEN 


5480 
5920 


CLS:FEN S:LOCATE 9,2: PRINT "TRI par 


quelle Rubrique ?'":PEN 1 


Sa: 


FOR R=@ TO NRU:LOCATE 15,4+R*x2:PRIN 


T LEFT#(F#(Q,R),1)3;5" — ":F#(@,R):NEXT 


5040 


PEN 2:TEX+="TCGEADENR": GOSUR 50008: 


R=E-1:PEN 1 


SAS@ 

TRI 
868 
5070 
5880 
5108 
5110 
5120 
5150 
5140 
2150 
5160 
5170 
5188 


CLS: LOCATE 8,12:PRINT "PATIENCE ... 
EN COURS" 

ON CT GOSUER 5100,5700 

PRINT CHR#(7) 

RETURN 

TRI DU FICHIER 

FOR I1=i TO NF:S(1)=I:NEXT:NS=NF 
GOSUE 5700 

OPENOUT "XXXTRI'":PRINT#9,NS 

FOR 1=1 TO NS:FOR R=@ TO NRU 
WRITE#9,F#(S(I) ,R):NEXT:NEXT 
CLOSEOUT 

OPENIN "XXXTRI": INPUTH9,NF 

FOR N=i TO NF:FOR R=QG TO NRU: INPUT# 


9,FFCN,R):NEXT:NEXT: CLOSEIN 


31976 
5280 
5/0ñ 
57/16 
5/28 
3750 


TRI#="XXXTRI.+#"::ERA,GTRIE 
RETURN 
TRI SHELL-METZNER 
P=NS 
P=INT(F/2) 
IF F£i THEN 56800 
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5748 DEP=1:FIN=NS-F 

S37530Q D=DEF 

57/76@ C=D+F:1F F#(S(D) ,R)<=F#(S(C) ,R) THE 
N 5790 

5778 S=S{(D):S(D)=S(C):S(C)=S 

5/80 D=D-F:1F D>@G THEN 5760@ 

5790 DEP=DEP+i:1F DEF:FIN THEN 5720 ELSE 
GOTO 5750 

3800 RETURN 


Première question : ‘‘Tri sur le fichier, sur la Sélection, ou Quitter ?” 
(Toujours notre issue de secours Q.). 

Ensuite, choix de la rubrique sur laquelle va s'effectuer ce tri. Et c'est 
parti | 

Point très important : pendant le tri, le fichier en tableau DIM F$ ne 
bouge pas ! C'est le contenu du DIM S qui est trié. 

Prenons le cas le plus simple, celui du tri de la sélection. 

On explore le tableau S(300) de 1 à NS, qui, rappelons-le encore, ne 
contient que des numéros de fiches et rien d'autre. Les fiches vont donc 
être appelées par ces numéros afin de comparaisons, lesquelles vont 
conduire à des déplacements de valeurs dans le tableau DIM S. En fin 
de tri, on a dans DIM S le ‘’bon'' ordre des numéros de fiches. Il est 
alors très facile d'afficher, d'imprimer où de sauvegarder cette sélec- 
tion triée, il suffit d'appeler de 1 à NS les fiches dont les numéros se 
suivent dans DIM S. 

Maintenant, cas du fichier global : on va opérer de même, mais en rem- 
plissant artificiellement le DIM S tout bêtement par 1, 2, 3, 4, 5... 
jusqu'à NF (ligne 5110). Ensuite, le même tri que précédemment dans 
DIM S. Et c'est très rapide ! Vingt et une secondes pour 149 fiches ! 
Oui, mais il faut maintenant mettre le fichier global de DIM F$ dans 
cet ordre. Pas question d'opérer par substitutions, on n'aurait pas assez 
de mémoire disponible. 

Alors astuce n° 2 : on enregistre le fichier dans le bon ordre des numé- 
ros (lignes 5130-5160) sous le nom sans équivoque de ‘’XXXTRI'". Tout 
de suite après, on le charge en mémoire dans DIM F$ (lignes 
5170-5180), donc en écrasant l’ancien. Et le tour est joué. Toutefois, 
si on a utilisé une disquette, on va ensuite y effacer notre ‘’XXXTRI"" 
(ligne 5190). Pour 149 fiches, la durée totale 
TRI + sauvegarde + chargement +effacement=62 secondes sur dis- 
quette. 

Avec cassette, il faudra faire un ‘’REWIND”" après la sauvegarde et ne 
pas taper la ligne 5190. Ce sera certes plus long que sur disquette ; 
on a chronométré 4 minutes 32 secondes pour ce fichier de 13 kilo- 
octets (7 ‘’blocks''), mais c'est néanmoins bien plus rapide que le tri 
banal sur le DIM F$ lui-même qui lui nous avait demandé … 23 minutes. 
La méthode de tri utilisée est celle de SHELL-METZNER (lignes 
5700-5790). C'est la championne de vitesse, loin devant les autres 


méthodes (par tri à bulle, par substitution en escalier, par dichotomie), 
mais elle présente un léger défaut. 

Supposons que vous vouliez trier par Editeurs et en ‘’second choix” 
par titres. Vous seriez tenté de dire ‘‘je vais d'abord trier par titres, et 
ensuite je referai un tri par éditeurs ; ainsi, dans chaque bloc éditeur, 
les titres seront dans l'ordre’’. Faux avec les tris SHELL-METZNER ou 
par dichotomie (qui se ressemblent) ; ce serait vrai avec les tris à bulle 
où par substitution en escalier, mais ce sont les plus lents... Il fallait 
bien en choisir un ! 

Pourquoi la même méthode SHELL-METZNER passe de une à 23 minu- 
tes selon que l'on classe des nombres dans DIM S$ ou des fiches dans 
DIM F$ ? Parce que dans ce dernier cas, on est obligé de ‘’déplacer”” 
une à une les neuf rubriques, à chaque fois que l'on déplace une fiche 
entière (boucles FOR R=0 TO 8). Dans l’autre cas, c'est seulement 
un seul nombre entier (sur deux octets). De ce fait, le tri réel du DIM S 
ne dure que 21 secondes au lieu de 23 minutes pour le DIM F$... 


LA PRATIQUE DES SELECTIONS ET TRIS 


Si vous avez une imprimante, il est utile de conserver sur disquette ou 
cassette plusieurs versions triées du fichier : 
Le fichier brut a pour nom LOGICIEL.FIC, c'est celui dans l'ordre chro- 
nologique des saisies. Trié par titres, c'est LOGICIEL.TIT ; par genre 
LOGICIEL.GEN ; par éditeurs LOGICIEL.EDI. Ces trois dernières versions 
imprimées sont très pratiques. 
En revanche, sauvegarder des sélections n'est intéressant que pour ceux 
qui n'ont pas d'imprimante ; recharger ces petits fichiers est le seul 
moyen de les consulter. 
Un exemple concret : vous voulez la liste de vos jeux d'arcade édités 
par AMSOFT : 

1 — Rechercher ; rubrique : genre, élément = ‘’arcade’. 


2 — Sous-option ‘‘Préciser'’ (retour menu précédent). 

3 — Recherche : rubrique = éditeur, élément ‘’Amsoft”’. 

4 — Sous-option ‘'quitter'’ (retour menu principal). 

5 — Option TRI. 

6 — Sous-option ‘’Sélection'’. 

7 — Tri sur la rubrique ‘titre’. Retour menu principal après le beep 

signalant la fin du tri. 

8 — Option impression. 

9 — Sous-option ‘Sélection’. 
10 — Donnez un titre, exemple ‘’ARCADE de AMSOFT'"'. 


Vous obtenez un tableau par colonnes, une fiche par ligne où les titres 
sont en ordre alphabétique. Présentation sans bavures. 

Il Y a ensuite retour au menu principal. 

De là, vous pouvez demander une sauvegarde de ce petit fichier sous 
le nom de AMSOFT.ARC. 
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Après quoi vous pouvez poursuivre l'exploitation de votre fichier glo- 
bal, faire une autre sélection, etc. 


CONCLUSION 


Vous avez remarqué que l'intérêt de notre logiciel sur la plupart de ses 
concurrents du commerce est qu'il peut conserver en mémoire deux 
fichiers, le global est une sélection ; ce dernier tenant au grand maxi- 
mum 600 octets en mémoire. 

De ce fait, toutes les options du menu principal peuvent s'appliquer à 
l'un ou à l'autre. 

La manipulation étant simple (parce que claire) et souple, on peut se 
livrer sans risques à d'innombrables triturations de fiches. 


LES METHODES DE TRI 


Nous n'en citerons que deux, la plus simple (et aussi la plus lente) et 
la plus rapide. Un petit banc d'essai comparatif va les départager 
nettement. 


1@ ‘“TRIDEMO — DEMONSTRATION DE TKIS 

2@ DEFINT À-S,U-Z 

386 DIM X(:G) ,V(:0) 

68 FOR I=1 TO 3B@: X{I)=INT (RND#1W@) :V(I)= 
X(I):NEXT 

78 CLS:PRINT "FICHIER BRUT 
80 FOR I=1 TO ZSG:FRINT V(I) 
FRINT 

160@ ‘ TRI À BULLE 

119 T@=TIME 

12@ ‘ FD=FLAG DEFLACEMENT:B=BULLE 

150 FD=0:B=G:FOR I=i TD 36 

14Q IF V{I)3:=V(I-1) THEN 16@ 

158 H=V(I):VCI)=V(I-1):V{I-1)=BR:FD=1 

18@ NEXT 

1708 IF FD=1i THEN 1598 

19@ Ti=TIME 

190 PRINT "TRI À BULLE 2"; {(T1-T@) /:08;"s 
"2: PRINT 

266 FOR I1=i TO ZG: PRINT V{I)3::NEXT: PRINT 
: PRINT 

3@@ ‘ TRI SHELL-METZNER 


"= PRINT 
:NEXT: PRINT: 


318 TO=TIME 

320 M=:QG : ‘MAXI DU FICHIER 

3350G M=INT(M/2) :° MILIEU 

340 IF M£1 THEN 410 

358 DEPART=1:FIN=32-M 

S6G D=DEFART 

57@ I=D+M:1F X(D)£=X(1) THEN 488 

3:90 H=X{D):X(D)=X(1):X(1)=H 

398 D=D-M:1IF D;@ THEN =:70@ 

A40G DEPFART=DEFART+I1:1F DEPFART:FIN THEN 3 
SA ELSE GOTO 3560 

418 TIi=TIME 

426 FRINT "TRI SHELL-METZNER EN": (Ti-T@) 
/58@;"S":FRINT 

450 FOR I=1 TO SG: PRINT X(I1):;:NEXT: PRINT 
448  ———--——— FIN DE LISTING --—-------— 


Nous remplissons deux tableaux identiques DIM X et DIM V de 30 nom- 
bres aléatoires de O à 99 (ligne 60). Puis chacun sera trié par l'une de 
ces méthodes avec chronométrage par la fonction TIME. 

Le tri à bulle a une durée moyenne de cinq secondes contre une seconde 

et demi pour le tri Shell-Metzner. Ce rapport de temps serait bien plus 

grand si le nombre d'éléments était très supérieur à trente. 

Le principe du tri à bulle (ligne 100 à 200) est ultra simple : si deux 

éléments consécutifs ne sont pas dans l'ordre, on les inverse et on met 

un flag (FD) à 1. Puis on ré-explore le fichier de haut en bas autant de 
fois que l’on retourne un flag égal à 1. Avantages 

— sile fichier est déjà classé, un seul passage suffit ; c'est une vérifi- 
cation ultra-rapide ; 

— son écriture reste très simple : cinq lignes Basic ; 

— dans le cas d'un tri sur un DIM à plusieurs rubriques, on peut faire 
des tris successifs en commençant par le moins prioritaire : l’ancien 
ordre sera conservé si le tri suivant tombe sur des égalités (le Shell- 
Metzner mélange tout). 

On utilisera donc le tri à bulle pour des petites opérations de tris (moins 
de 20 éléments). 
Le tri Shell-Metzner (lignes 300 à 430) est d’un fonctionnement plus 
complexe. Il divise chaque fois le fichier en deux et compare des élé- 
ments dans chacune des moitiés. Cela diminue le nombre de déplace- 
ments, d'où un gain de temps. Pour vérifier un fichier déjà trié, il met- 
tra un peu plus de temps que le tri à bulle. On le réserve pour les tris 
sur des nombreux éléments. 
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Chapitre XIV 


LES ENTRÉES/SORTIES DE FICHIERS 


Cela sous-entend les opérations de chargement, sauvegarde et édition 
sur imprimante. Si les deux premières sont simples et banales à conce- 
voir, il en va autrement en ce qui concerne les programmes d'édition, 
du moins quand on veut faire quelque chose de ‘‘propre'’ sur le plan 
esthétique. 


LA SAUVEGARDE 
(lignes 7000 à 7900) 


On demande s'il s’agit du fichier ou de la sélection, et toujours le ‘’quit- 
ter’ de secours. Ensuite, le nom que portera cet enregistrement. Là, 
un petit gadget pour fainéants : en répondant par ENTER, le nom sera 
LOGICIEL.LOG, celui du fichier brut, celui que l’on ré-enregistre après 
chaque séance de saisie. 

La syntaxe de ce nom est contrôlée par un GOSUB 8500. C'est facul- 
tatif pour les utilisateurs de cassettes, mais c'est néanmoins vivement 
conseillé car le jour où vous aurez un drive, vous transférerez vos pro- 
grammes de cassettes à disquettes sans avoir la corvée de modifier 
les noms. Rappelons ces règles de syntaxe : nom de huit caractères 
maxi sans espaces ni ponctuations puis, c'est facultatif, un point et 
un ‘’nom d'extension’ de trois caractères maxi. Les noms d'extension 
‘’réservés'” (interdits) sont BAS, BAK, BIN, COM et EXE. 

Par défaut de nom d'extension, le programme ajoute ‘’.LOG'”. En effet, 
il est imprudent d'enregistrer sur disquette des fichiers ASCII sans noms 
d'extension, car plus tard on ne sait plus quel programme a généré ce 
fichier lu en faisant CAT. En revanche, plus d'ambuiguité si l'extension 
est l'abréviation de ce logiciel ; exemple : .LOG qui vient du nom de 
ce programme LOGICLAS.BAS. 

Tout d'abord, nous enregistrons une valeur numérique NF ou NS, puis 
des valeurs alphanumériques (ou chaînes), le contenu de chaque fiche. 
Pour 100 fiches, il y a donc 901 enregistrements. Heureusement 
qu'AMSTRAD est rapide. 
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LE CHARGEMENT D'UN FICHIER 
(lignes 8000 à 8570) 


Nous retrouvons la même structure que précédemment à la différence 
que l’on ne demande plus ‘Fichier ou Sélection ?'', c'est toujours 
Fichier, même s'il s'agit de charger en DIM F$ un enregistrement d'une 
sélection antérieure. OK ? 


7@80 ‘ SAUVEGARDE 

7010 CLS:LOCATE 1,127: FRINT'"'SAUVEGARDE du 
Fichier ,Selection,Quitter?":TEX#-="FSsQ": 
GOSUR SAA@G 

7@2@ ON E GOTO 7@:@,7108,7/7900 

7850 CLS:LOCATE 2,15:PRINT "(pour le Fic 
hier LOGICIEL.LOG = ENTER)" 

7@40 LOCATE 5,10: INFUT'SAUVER le Fichier 
"FICHE 

7050 SOSUE 850@:1F REFUS THEN 7050 

7860 LOCATE 12,18:PFRINT "PATIENCE ..." 

76878 OFENOUT FICHE#:PRINTAHS,NF 

708@ FOR N=i TO NF:FOK K=QG TO NRU 

7890 WRITEH9,F#IN,R):NEXT:NEXT: CLOSEOUT: 

GOTCO 7966 

71@@ CLS:LOCATE Z,10: INPFUT'"'NOM de la Sel 

ection ",;FICH#:LOCATE 17,18:FRINT "FATIE 

NCE -25 2" 

7110 GOSUR 8S00:IF REFUS THEN 7100 

7120@ OFENOUT FICH#:FRINT#R9,NS 

7150 FOR I1=i TO NS:N=S(1):FOR R=Q TO NRU 

7140 WRITEH9,F#{IN,R):NEXT:NEXT:CLOSEOUT 

7988 RETURN 

890% ‘ CHARGEMENT 

8@i@ CLS:LOCATE 2,1S5:FRINT "(pour le Fic 

hier LOGICIEL.LOG = ENTER)" 

8820 LOCATE 5,1@:INFUT'"Charger le Fichie 

r "FICHE 

80:0@ IF FICH#="" THEN FICH#="LOGICIEL.LO 

G'"':GOT0O 89050 

8040 GOSUER 8500:1IF REFUS THEN 8000 

8050 LOCATE 12,18:PRINT "FATIENCE ..,." 

8060 OFENIN FICHE: INPUT#9,NF 

8079 FOR N=1i TO NF:FOR R=@ TO NRU: INFUT# 

G,FHIN,R):NEXT:NEXT:CLOSEIN 


9080 RETURN 

850@ ‘ NOM DE FICHIER 

8510 REFUS-=@:1IF FICH#="" THEN FICH#$="LOG 
ICIEL.LOG'":G0T0 85708 
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2@ EXT=INSTR(FICH#E,"."):LNF=LEN(FICH#) 


85350 IF EXT>9 OK INSTR(FICH#," ") THEN KR 
EFUS=1 

8540 IF EXT-@ AND LNF:8 THEN REFUS=Ii 
8550 IF REFUS THEN FRINT CHR#(7):;:GOT0 8 
o7/@ 

8560 IF EXT-@ THEN FICH#=FICH#+".LOG" 
8578 RETURN 


Il y a en plus le sous-module contrôle du nom de fichier (ligne 
8500-8570) utilisé aussi pour la sauvegarde. 


L'IMPRESSION 
(lignes 6000-6330) 


L'édition d’un fichier sur imprimante doit répondre aux exigences sui- 
vantes : 


L'exploitation de l'édition papier doit être pratique, c'est-à-dire pou- 
voir localiser rapidement sur le papier ce que l'on y cherche. 
Une fiche par ligne. 

Le contenu des rubriques parfaitement aligné en colonnes. 

Les colonnes sont suffisamment espacées ou séparées par un trait 
vertical. 

Un trait vertical ne doit pas ‘‘’toucher'’ le texte. 

Les colonnes sont légendées en haut de page, et ces légendes sont 
‘’isolées’” par un trait horizontal. 

Chaque page ne comporte que 50 fiches ; ceci afin de rendre ins- 
tantanée la recherche par numéro de fiche (exemple, n° 132 = page 
3). 

Le saut de page est automatique, avec numérotation de la page et 
répétition des légendes de colonnes. Bien sûr, sans décalage vertical. 
Tout ce qui est imprimé sur une page doit être présenté dans un enca- 
drement rectangulaire. C'est une assurance de non-coupures en cas 
de photocopie. 

Les nombres d'une colonne de valeurs numériques doivent être impri- 
més en PRINT USING. 

Les valeur manquantes doivent être remplacées par un ou des points 
(c'est déjà fait) ; afin que le lecteur puisse apprécier l'alignement 
sans devoir utiliser une règle... 
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Quel cahier des charges démentiel ! Mais non, cela ne fait que 29 peti- 
tes lignes de Basic pour une présentation classe ‘‘PRO''. J'oubliais 
encore une condition : un titre pour le tablau est souhaitable ; il peut 
ne pas être répété à chaque page ; en tout casil doit être automatique- 
ment centré sur sa ligne. 

À présent, abordons notre listing : 


La structure de page 

Elle tient compte que l'on utilise du papier mesurant onze pouces 
(27,9 cm) entre chaque pliure ; c'est la dimension la plus courante, soit 
11x6-66 lignes par page. 

Nous aurons donc l'ordre d'un trait horizontal, suivi du numéro de page, 
les légendes de colonnes, autre trait horizontal, 50 lignes-fiches et un 
troisième trait horizontal final. Soit 3 + 50 + 1 = 54 lignes à imprimer ; 
il Y aura donc un saut de page de 66 x 54=12 lignes ‘‘blanches'” à 
effectuer (ligne 6320). 


848@4@ ‘ EDITION 

8@i8 CLS:LOCATE 1,12: FRINT"'IMPFRESSION du 
Fichier ,Selection,Guitterr'":TEX#="FS0": 

GOSUE 50080 

6@20@ IF E=3 THEN 6198 

60:0 WIDTH 127:FRINT #8,CHRE (27) ; CHR# (64 
js2P=i 

6@4G CLS: LOCATE 18,1Z:LINE INFUT'TITRE 
5 U,TITE:SIF TITH="" THEN TIT#=" 

SOS IF E=i THEN LOCATE 6,14:INPFUT"A PAR 
TIR DE QUEL NUMERC 7 ",ND#: ND=VAL (ND#): TI 

F ND=@ OK NDE:NF THEN 6850 

60658 LIiG-=7:FOR K=Q TO NRU:LIG=LIG+LR (CR) + 

Z:NEXT 

4Q7Q@ FRINTHR,SFC((7B-LENCTIT#H)) /2) 3; TITEÆ: 

FRINTÉHS,CHRE# (15) 

080 TRAIT#=STRINGE(LIG,"—-") 

5092 PFRINTH#8,TRAIT#;F 

6100 N=0G: GOSUE 4200: FRINTHB,TRAIT#:L=S 

&ii@ IF KE=2 THEN 46158 

5120 FOR N=ND TO NF:GOSUR 462@G@:L=L+i:1F 
=55 THEN GOSUE 43@û@ 

&iz:@ NEXT 

8140 GOTO 61708 

6158 FOR 1=1 TO NS:N=S (1): GOSUR 42098:i=L 

+1:1F L=S5S THEN GOSUE 6:5:6@ 


6168 NEXT 

617@ PRINTHS,TRAIT# 

6180 PRINTH8,CHRS# (27) ; CHR# (64) 

619G RETURN 

&20@ ‘ LIGNE FICHE 

6210 FRINTH8,"i"32:PRINT#HS ,USING"'#H##H#";N; 
6228 FOR R=G TO NRU:PRINTH#8,"  ":F#UN,R) 
3 SFCÉLR(R)-LENCFÆE(N,R)))3::NEXT: FRINT#8," 


2358 RETURN 

53:48 ‘ SAUT DE PAGE 

8310 PRINTHS,TRAITS#:F=P+1:AL=N: N=Q 

220 FOR J=1 TO i2:FRINTHB:NEXT:PFRINTHS, 
TRAIT#; F:L=S 

6530 GOSUR 6200: PRINT #8,TRAIT#:L=S: N=AL 
6348 RETURN 


Deuxièmement il faut calculer la longueur horizontale LIG de chaque 
ligne (ligne 6060). Nous allons prévoir dans l’ordre gauche à droite : 
Une barre verticale, un blanc, trois cases pour le numéro de fiche et 
deux blancs de séparation. Total = 7 cases ; puis chaque rubrique pro- 
longée par deux blancs de séparation. En fait, le dernier blanc sera une 
barre verticale. 

Définissons le trait horizontal TRAIT$ comme une suite de tirets de lon- 
gueur LIG (ligne 6080). 

Etablissons le sous-programme d'impression d'une ligne-fiche (lignes 
(6200-6230) : vous remarquerez que pour chaque rubrique, on écrit 
à la suite le nombre de blancs pour compléter. C'est un peu lourd mais 
beaucoup plus sûr que les commandes de tabulations sur imprimante. 
Puis le sous-programme saut de page (6300-6340). On y trouve le 
TRAITS de bas de page, le saut de douze lignes, le comptage des pages 
P, la mémorisation de la dernière ligne imprimée AN ( — ancien N), afin 
de pouvoir ré-éditer la ligne zéro du DIM F$ (contient les légendes), pour 
la restituer ensuite par N=AL (ligne 6330). Le L=5 des lignes 6330 
et 6100 est une initialisation du comptage des lignes imprimées. 
Voilà ! Nous venons de faire les 80 % du travail, la suite sera banale. 
Vous remarquerez que pour adapter ce module à un autre programme, 
il n'y a rien à retoucher. 


Le déroulement de l'impression 

Il demande tout d'abord si vous désirez imprimer le fichier ou votre sélec- 
tion. Premier cas, on vous demande le numéro de départ ND ; second 
cas, on utilisera le passage 6150. 

Dans les deux cas, on vous propose d'entrer un titre pour votre édi- 
tion. Ce titre sera imprimé en caractères normaux (dits PICA), auto- 
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centré (ligne 6070), puis passage en écriture dite condensée, code 
CHR$(15), 137 caractères par ligne. Toute édition doit commencer et 
finir par une vidange du buffer de l'imprimante. C'est le CHR$(27); 
CHR$(64); des lignes 6030 et 6180. 

Résumons : On positionne le papier sur l'imprimante. Impression du titre. 
Saut d'une ligne blanche. Trait, légendes, trait, 50 fiches, trait et saut 
de page. 


NOTE : Le titre n'apparaît que sur la page 1, mais la ligne légendes 
occupe toujours la même position en hauteur sur chaque page. 


On pourrait encore peaufiner la présentation en ce qui concerne les traits 
horizontaux et verticaux, mais ça c'est du ‘‘troisième degré’ que nous 
aborderons au chapitre XVII. 


LES MODULES ANNEXES 
(50000 et 60000) 


Rien à taper, ce sont nos routines utilitaires que l'on ajoute au pro- 

gramme par MERGE. Pour le module 60000, c'est notre ‘’DISCUT"' 

décrit au chapitre Ill mais renuméroté. Pour ce dernier, nous avons pro- 

cédé de la manière suivante : 

— LOAD ‘’DISCUT"' 

— On supprime les lignes qui se rapportent à l'option ICPM parce que 
trop dangereuses dans ce programme (perte du Basic !). 

— RENUM 60000 

— SAVE ‘DIS’ (ou SAVE ‘DIS ‘’,A pour les CPC 464) 

— MERGE ‘DIS 


Cette option ‘’DISC-UTIL'"" est dans la pratique très souvent appelée : 
pour s'assurer de l'orthographe d'un nom de fichier au CATalogue, ou 
pour s'assurer qu'il y est bien.., pour voir s'il reste de la place, pour 
effacer les ‘’.BAK'"", pour changer le nom d'un fichier, etc... et tout cela 
en partant du menu principal et en yÿ revenant sans rien perdre. | 
Si vous n'avez pas encore de DRIVE, tapez quand même cette option, 

elle ne vous gênera pas pour l'usage de cassettes. 


50000 ‘REFONSE A UN MENU 

50018 LT-LEN(TEX#) 

SAUZ2Q LOCATE 15-LT,74:PRINT"Reponse ("; 
SQ2:Q FOR I=1 TO LT-i 

50040 FRINT MID#(TEX#,1,1)5:",":2:NEXT 
50050 FRINT RIGHT#(TEX#,1)3:")";CHR#(154) 
; CHR# (245) ; CHR (707) 

5000@ TEXH=UPPERE (TEX#) 


50870 RE="":WMILE REZ": RE=INEEYSE: WEND 
22089 R$=UFFERS (KR): E=INSTR(TEXE,R#F) 

SO89C IF E=Q THEN FRINT CHR#1(7)3::GOTO =@ 
474 

581908 RETURN 

GBA ‘xxx DISCUT ##x Utilitaire pour DI 

SC 

£Q@@Gin CLS 

SGB2G FRINT "Cat Erase RKRename Drive 

Hak— Quitter" 

LOGER DF="": WMILE Q#f="": GE=UPFPERECINEEY# 
} : WEND 

68848 OD=INSTR("CERDEOU”" ,O#H):IF Q=@ THEN F 

RINT CHR#&(7)3::GO0OTO 400: 

60050 IF Q=6 THEN RETURN 

6ADEA ON Q GOSUE 490089,840090,6G01=:0,240190 
,<2248 

680076 GOTO 44626 

LABGBG CAT:RETURN 

50896 INPUT "  ERASER quel Fichier 7? °",F 
£: GOSUER 6566: IF REFUS THEN 691270 

LAIQBG IF F£="+.+x" THEN FRINT" Etes-vous 
bien sur %7.,4 (O/N) "s:R#="":UWHILE R&="" 
: RÉ=UPPERSECINEEY#) : WEND:IF R£="N" THEN 6 
Gi2A ELSE IF R#<>:"0" THEN 60108 

284118 :ERÊ,EFSE 

881206 RETURN 

$91:6 INPUT ‘ ANCIEN NOM 3: ",FÆ:IF INST 
RIFÆ,'"#"} 56 THEN 6@1:0@ 

682148 SOSUER 4050@8:IF REFUS THEN 4080 EL 

SE ÀE=FE 

&8158 INFUT * NOUVEAU NOM : ",FÆ:IF INST 
RCFHE,M4) 54 THEN 6@15 

69169 GOSLUR 46S@0G:IF REFUS THEN 40188 EL 
SE NE=FE 

68176 :REN,GNF, GAY 

8R18980G RETURN 

68190 FRINT * SUR QUEL DRIVE (8/H) 7" 

SG2GQ DE="":WHILE D£="": DE=-UFFERSU(INEEYS 
} : WEND 

£2@2108 IF DE<:"A" AND DH<S"H" THEN 40200 

68226 :DRIVE,GDH 


682350 RETURN 

68240 F+="+x. HAE" 

6@25@ :ERA,GFE 

68268 RETURN 

£@5Q@@ “SECURITE DU NOM DE FICHIER 

6Q@S51A L=LEN(F#) : REFUS=G 

605208 IF INSTR(F#,CHR#(S52)) :@ OR L=8 TH 
EN REFUS=I1 

68550 F=INSTR(F#,".") 

680540 IF F5 OR {F=8G AND L:8) THEN REFUS 
=} 

6055@ IF F6 AND L-P5S5 THEN REFUS=1 
6056Q IF REFUS THEN FRINT CHR#&(7);: 

£@57@ RETURN 

GOSSES FIN DE LISTING ——-----—- 


LOGICIELS en CASSEITES 


CL CODEDISC GENRE EDITEUR AUTEUR DISC x NOTICE REA 
1  AMLETTRE RMLETIRE TRAIT. TEXTE AMSOFT : 1A+6A ORI6I F CPC] 
2 CPC44 CPC464 DEMO CPC AMSTRAD . 118 ORIGI + 

3  DECATHLON ‘ SPORT OCEAN DALEY THOMPSON . ORIGI À 

4 FIGHIER PILOT FP SIM. VOL DIGiiAL INTEGRA MARSHALL A ORIGI . + 

S GESTION DE F'CHIERS BES:CICH Y:CHIER CORE ABAD bA BA ORIG! F Cec 1 
è RALLY II RALLY2 AUTO LORICIEL CARLO PERCONTI 12% 2161 F 


T MAISON WATSON ASSEMBLEUR MICRO APPLICATI DR WATSON sA ORISI LIVRE +UTILITAIRES 


Chapitre XV 


LA RÉCUPÉRATION DE FICHIERS 


Il s'agit de fichiers antérieurs que vous aviez enregistrés à l'aide de logi- 
ciels du commerce (gestionnaire de fichiers, traitements de texte, etc.) 
et que vous aimeriez bien récupérer en les mettant sous une autre forme 
(ex.: tableaux DIM), afin de pouvoir les utiliser avec un programme de 
votre fabrication. 

En faisant type nom du fichier sous CPM, vous retrouvez votre texte 
mais entrecoupé de caractères graphiques bizarres qui sont pour le logi- 
ciel des ‘’caractères de contrôle’ (signaux de commande). Sachant per- 
tinemment ce que vous avez entré, vous aurez vite fait de trouver le 
rôle de chacun d'eux : donc ceux que vous ferez sauter, et ceux que 
vous transformerez en ordres Basic classiques. 

Attention ! On ne tombe pas sur le coup d'une loi : on ne déplombe 
pas un logiciel commercial, on décode un fichier personnel obtenu par 
un logiciel. Nuance. Certains éditeurs proposent tel logiciel À pouvant 
utiliser les fichiers écrits par leur logiciel B : c'est là un avantage option- 
nel non une obligation, sinon ce serait de la ‘vente forcée'’. Voilà pour- 
quoi l'auteur a tout à fait la conscience tranquille en publiant ce qui 
suit. 


DECODAGE D'UN FICHIER ASCII 


Ceux qui n'ont pas de DRIVE n'ont pas le CPM avec TYPE ou ED. 
Aucune importance, puisque TYPE et ED sont impuissants face à cer- 
tains ‘’pièges à loups”, d'où clignotement de l'écran et plantage complet 
de la machine ! Un petit exemple : si on rencontre CHR$(12), c'est l'ef- 
facement de l'écran ; sur imprimante, c'est l'ordre d'avancer le papier 
d'une page ! Très gai. 

En conséquence, nous avons conçu le petit programme ASCII nommé 
DECODFIC auquel rien ne résiste (convient aussi aux cassettes). 
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18 ‘- DECODFIC - EXTRAIT LES CARACTERES 
AFFICHABLES D'UN FICHIER COMMERCIAL 

26 ‘AMSTRAD CFC — M.ARCHAMBAULT — 4/84 
30 CLS:D=0: INPUT "IMPRIMANTE ? (O/N) “,0 
#:1IF UPFER$(O$)="0" THEN D=8 

48 CLS: INPUT'NOM DU FICHIER: °,FICH# 

50 OFENIN FICH#:F=@ 

6@ WHILE NOT EOF:F=F+] 

7@ FRINTHD,F: 

89 LINE INPUT#9,A# 

90 FOR I=1 TO LEN(A#) 

102 CH=MIDF(A#,I,1) 

11@ IF ASC(C#)>31 AND ASC(C#H)<127 THEN F 
RINTHD,CF; :ELSE FRINT#D,"<":QSC(CH)s "une 
120 NEYC:FRINT#D,CHR# (12) | | 
12@ WEND 

140 CLOSEIN 

150 ‘ ——— FIN DE LISTING 


Très simple : chaque caractère de l'enregistrement A$ recu est inspecté. 
Si son code ASCII est compris entre 32 et 126, on l'affiche, sinon c'est 
son code ASCII disposé entre ‘’ < >". De plus, chaque enregistrement 
est numéroté. Essayez-le avec un fichier obtenu avec un traitement de 
texte (‘'AMLETTRE"", ‘’TEXTOMAT'", etc.). Amusant et instructif. 

Pour le tester à fond, nous avons créé un fichier très ‘méchant’ par : 


10 OPENOUT ''PIEGES" 
20 FOR 1-0 TO 31:WRITE # 9,CHRS(I:NEXT 
30 CLOSEOUT 


Si vous aimez les feux d'artifice, essayez, sous CPM, TYPE PIEGES. 
Traité par DECODFIC, tout se passe bien sauf pour 13 et 26 qui provo- 
quent un saut de ligne, donc un saut de + 1 dans la numérotation. Nor- 
mal pour CHR$(13)=retour de ligne ; et CHR$(26), c'est le CTRL Z 
signifiant fin de fichier. Il n'empêche que les codes 27 à 31 sont listés. 
Alors qu'essayé sous CPM par ED PIEGES, tout se passe bien jusqu'à 
25, après fin du fichier. 

Le second travail va être de concevoir un programme Basic qui va lire 
le fameux fichier, enlever ou traduire tous ces codes de contrôle dont 
on n'a plus que faire, mettre en tableau DIM les chaînes récupérées 
et ‘mises au propre'’ et finalement sauvegarder ces données normale- 
ment par un OPENOUT. Ce travail prendra moins de temps que si vous 
deviez re-entrer au clavier tout ce que vous aviez déjà tapé avec le logi- 
ciel d'origine. 


LE PROGRAMME DE RECUPERATION 


Nous prendrons un exemple concret qui se rapporte au gestionnaire de 
fichiers sans doute le plus répandu, celui de CORE. Célèbre parce que 
simple d'emploi, bon marché, en français, avec un excellent rapport 
prestation/prix. Rares sont les ‘’Amstradistes'” qui ne l'ont pas utilisé. 
Si vous avez tapé notre gestionnaire LOGICLAS des chapitres précé- 
dents, ou une adaptation, vous aimeriez bien récupérer le gros fichier 
obtenu par CORE afin de pouvoir l'exploiter par un logiciel nettement 
plus performant. 

Le programme qui suit, baptisé ‘’CORASCII"" charge n'importe quel 
fichier obtenu par CORE, affiche à l'écran, ou mieux sur imprimante, 
le nombre de fiches, nom et nombre des rubriques, la plus grande lon- 
gueur de chaîne rencontrée dans chaque rubrique, puis le total que cela 
représente. Vous avez alors tous les éléments pour définir votre futur 
gestionnaire de fichiers. En final, la sauvegarde en ASCII des fiches au 
‘‘format'’ utilisé par LOGICLAS, à savoir nombre NF puis les fiches. 
Nous avons ainsi récupéré en quelques dizaines de secondes deux 
fichiers de 14 kilo-octets... C'est rentable. 


Le codage du fichier CORE est le suivant : 
— nom du fichier 

— 20 lignes de noms de rubriques 

— nombre de fiches +2 


L'enregistrement n° 23 est donc la première fiche. En effet, toutes les 
rubriques d'une fiche sont concaténées avec des repères de sépara- 
tion. Chaque enregistrement-fiche commence par CHR$(249), le chif- 
fre 1 (= numéro de rubrique), un blanc, le contenu de la rubrique n° 1. 
Les séparateurs inter-rubriques sont différents : CHR$(154);CHR$(249), 
n° de rubrique, un blanc, le contenu. La ïin de fiche est repérée par 
CHR$(164);CHR$(181);CHR$(164). Une donnée ‘‘hors rubrique” est 
signalée par un CHR$(164) tout seul. 

Pas simple ! Il va falloir hâcher menu à coups de INSTR et de MIDS$ ! 
Il faudra aussi éliminer ces données hors rubriques puisqu'étant non 
logeables dans un tableau DIM. 


Le début de l'analyse est facile : on met en DIM RUBS$ les noms de 
rubrique (lignes 100 à 120), on récupère le nombre de fiches NF, ce 
qui nous permet alors de fixer notre tableau DIM F$ (lignes 130, 140). 
En ligne zéro, on loge les noms de rubrique et on ERASE le DIM RUBS$ 
dont on n'a plus besoin. 

C'est alors la dissection des lignes-fiches, une par une. Cela consiste 
à récupérer le numéro de rubrique succédant à un ‘‘séparateur'’ puis 
la chaîne entre le blanc qui le suit et le séparateur suivant (lignes 200 
à 430). Puis la chaîne ainsi isolée est enfin logée dans notre tableau 
DIM F$ (ligne 290). 

Pour effectuer tout ce travail sur un fichier CORE de 14 kilo-octets, nous 
avons chronométré vingt-six secondes ! 
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Cette analyse-traitement de fichier ‘’commercial’” doit être ici considé- 
rée comme un exemple qui montre que, dès que l’on a découvert tout 
le système de codage d'un fichier, il n'est pas difficile de le récupérer 
en DIM. 

La suite, à savoir la sauvegarde, l'affichage des résultats (lignes 600 
à 710), la recherche de la plus grande longueur dans chaque rubrique 
(lignes 800 à 860), sont banales. Et surtout réutilisables pour un fichier 
venant d’un autre logiciel. Vous n'aurez à reprogrammer que la partie 
lecture + analyse (lignes 100 à 430). 


1@ ‘ CORASCII — Fichier "GESTION DE FICH 
IERS" de "CORE"--: Fichier ASCII 

2@ ‘AMSTRAD CFC-Michel Archambault 1986 

30 OPENOUT "HBIDON'":MEMORY HIMEM-—1:CLOSEO 

UT 

40 DEFINT fA—Z 

SA DIM RUB+#{20) 

HA SÉE=CHRE (164) +CHR# (249) : ‘SEFARATEUR CO 
RE 

70 CLS:LOCATE 3,10@:INFUT "Nom du Fichier 
CORE : ",FICH# 

8Q OFENIN FICH# 

QQ INPUT#H#9,A#:1=0: "INDICE RUBRIQUE 

1G@Q@ FOR N=2 TO 21:INFUTH9,AE 

110 IF At:>"" THEN RUE#(I)=A#: I=1+i 

1Z2QA NEXT 

1:20 INPUTH9,NE:NF=NE—2 

14Q DIM FÆ(CNF,1) 

156 FOR J=-Q TO I:F#$(8,J)=RURE(J) 

160 NEXT:ERASE RUER# 

OR ‘DECOUPE DES ENREGISTREMENTS 

210 FOR N=i TO NF:LINE INPFUT#H9,A@#:i=LENC 
AY) 

220 F=INSTR(A#,S#) 

2350 FR=VAL(MID#(A#,3,1)): "FREMIERE RUERI 
QUE 

24Q IF PR:Q THEN FÆ(N,PR-1)=MIDE(AE,S,F- 

D) 

250 O=INSTR(PF+1,4#,S#) 

268 C=VAL(MID#(A#,F+2,2)5):2=4:IF C9 THE 

N 2Z=5 


27@ IF O=G THEN 2:20 

289 IF C=@ THEN 3@@ ELSE C=C-1 

290 F#N,C)=MIDÉ(AE,P+2Z,0-P-—7) 

:0G P-0 

31@ GOTO 258 

220 IF CA THEN FÆIN,C-1)=MID#(A$,P+27,L- 

3-F-7) 

4G@G ‘ELIMINATION DES DONNEES HORS RUBRIQO 

UES 

41@ FOR J=G TO I—-1:S=INSTR(F#(N,J) ,CHRE( 

164)) 

420 IF S THEN FÆ(N,J)=LEFT#(F#(N,J),S—-1) 

459 NEXT:NEXT:CLOSEIN 

580@ ‘SAUVEGARDE 

18 CIS: LOCATE 15,5: FRINT "SAUVEGARDE :" 

:LOCATE 8,1@:INFUT "NOM DU FICHIER : ",F 

IC 

S2@ OFENOUT FIC# 

550 PRINT #9,NF 

54@ FOR N=1 TO NF:FOR J=0 TO I-1 

94 WRITEHS,FHEIN,J):NEXT:NEXT:CLOSEOUT 

&B@ “LEGENDE 

81A CLS: W=@ 

&ZB TOT=-G:LOCATE 1,1:PRINTHW, "CARACTERI 

ST. DU FICHIER "3:PFEN ZS:PFRINTHW,FIC#:;:FE 

NO 1:FRINT#HW," =" 

6: LOCATE 6,3: PRINTHW,NF: "fiches avec"; 

I; "rubriques :° 

649 PRINT#HW :FOR J=Q TO I-1 

658 PRINTAU,USING'UHHHHHE#H" : J::PRINTHW,"-" 

:FF(B,J)::GOSUE 968 

6868 NEXT 

67Q PRINT#W:PRINTAW,TAR(10) ; "Total=";:TOT 

3 caracteres": PRINTHUW 

680 LOCATE 12,25:FRINT "IMPRIMER 7? (O/N 
) ":OH=" PI WHILE G#&="":OD#=INEEY#: WEND 

690 IF UPPFER#(C#)="0" THEN W=8 :GOTO 470 

:ELSE W=0@ 

78@ IF UFPFER#(O#)<S"N" THEN 4680 

7iR CLS: END 

696 ‘LONGUEURS MAXI 

818 M=1:FOR N=1 TO NF 


820 IF LEN(F#(N,J)) >M THEN M=LEN(FE(N,J 
)) 

852 NEXT 

840 PRINTHW,TAH(235) ; USING"##H#": M: :PRINT#H 
W," caract." 

85@ TOT-TOT+NM 

868 RETURN 

87@ ———————— FIN DE LISTING ———----—- 


Chapitre XVI 


LA COPIE D'ÉCRAN 
SUR IMPRIMANTE 


C'est ce que l’on appelle aussi le ‘Hard Copy'’. Sur AMSTRAD, la chose 
est plus compliquée que sur les autres micros car le plan de la mémoire 
d'écran est d'une extrême complexité, ce qui explique la relative len- 
teur de l'affichage de texte. Le fabricant n’a pas compliqué par plaisir, 
c'est la rançon de l'écran unique (texte et graphisme), qui permet aussi 
les trois MODE O, 1 et 2 (pour plus de détails sur la mémoire d'écran, 
voir MPSA chapitre XV). 

Côté imprimante, il faut le ‘‘BIT IMAGE””, c'est-à-dire ESC K ou L ou 
M, ce que possèdent pratiquement tous les modèles au ‘Standard 
EPSON" ; ce qui exclut la DMP 1. De quoi s'agit-il ? 

L'imprimante ne reçoit de l'ordinateur que des nombres de O à 255. 
En mode normal, elle les traduit par un dessin de caractères, exemple 
65 donne le À (=code ASCII). La tête d'impression comporte neuf 
aiguilles superposées, actionnées par des micro-électro-aimants. En fait, 
ce sont les 7 du haut ou les 7 du bas qui peuvent fonctionner simulta- 
nément : ces derniers sont rarement sollicités, pour les minuscles avec 
jambage inférieur : g, j, p, q, y, c et la virgule. 

Les alignements verticaux de points sont des ‘‘images binaires'’ de nom- 
bres de O à 127 fournis par la ROM de l'imprimante. Généralement une 
salve de cinq nombres pour dessiner un caractère. 


En mode ‘bit image”, l'imprimante interprète le nombre reçu non plus 
comme un code ASCII mais pour en reproduire l’image binaire, de haut 
en bas. Ainsi, 67 donne 1000011, c'est-à-dire un petit point en haut 
et deux en bas. 

Sur l'image vidéo, c'est le même principe mais les images binaires sont 
dans le sens horizontal... Imaginez une image d'écran en MODE 2, 
caractères noirs sur fond blanc : il ÿ a 200 lignes comportant chacune 
80 images binaires d'octets ; chaque point noir (PEN 1), c'est un 1, 
un point blanc (PAPER O), c'est un zéro. 
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Nous allons explorer 200 x 80 x 80 = 128 000 points sur l'écran à l’aide 
de la fonction BASIC TEST, traduire ces mesures en images binaires 
verticales que nous enverrons vers l'imprimante. 

Sur ce principe, nous vous présentons une routine BASIC et un court 
programme en langage machine (à entrer par les programmes MACH- 
DIM/POKEDIM du chapitre IV). Ils donnent exactement le même tracé 
sur papier, mais le sous-programme Basic (à appeler par un GOSUB 
58000) est très lent. 


58000 ‘ HARDCOPY (par TEST) 

58010 ‘ AMSTRAD CPC — M. ARCHAMBAULT/88 
58020 FRINT HB,CHR#(27) ; CHR# (64); 

5805:0Q FRINT HO,CHR#(27); "A"; CHR# (7): 
58040 FRINT H#S,CHR#(27) "M": 

59050 WIDTH 1:57 

3806G FOR 1=4@6 TO 14 STEF —-14 

5807@ PRINT H#B8,CHRE (27) "L": CHR (127) ; CHR 
(2): 

Se080 FOR J=-@ TO 4238 

58090 T=TEST(J,I)#64+4TEST(J,1-2)#324+TEST 
(J,I1-4)#16+TEST(J,1-4) #B+TEST{J,1-8) #44+T 
EST(J,1-1@) x2+TESTiIJ,1I-12) 

38100 PRINT H6B,CHRE#ÆIT) ;:NEXT 

59110 PRINT HS,CHR#(12):NEXT 

39120 PRINT #8,CHR#{27) :; CHR# (64) ; 

998159 RETURN 


LE PROGRAMME BINAIRE ‘’HARD9F00"" 


Son adresse départ est &9F00 (=40704) et sa longueur de 181 octets, 
donc il ne viendra pas empiéter sur tous ces petits programmes binai- 
res que vous recopiez dans des revues, et qui eux commencent pres- 
que tous en &A000 (= 40960). Ce 9F00 a été choisi parce que c'est 
facile à retenir, surtout quand on le rappelle dans le nom du pro- 
gramme... (une manière de faire qu'il est bon d'adopter). 

Il vous faudra moins de dix minutes pour le saisir avec MACHDIM. Rap- 
pels : adresse départ &9F00 ou 40960, puis tapez dans l’ordre 
CD,A6,9F,3E, etc. 

Pour le charger en RAM : (en début d'un programme) 

MEMORY &9F00 — 1:LOAD'"HARD9FOO" 

Pour exécuter un Hard Copy : 

CALL &9F00. 

Pour le sauvegarder : 

SAVE'"HARD9F00"'",B,&9F00,181 


Même si c'est votre premier programme en langage machine, avec tous 
ces détails, vous n'avez pas le droit de vous rater ! 

Le listing que nous publions est en fait les deux colonnes de gauche 
d'une édition fournie par un programme assembleur. Rappelons encore 
que la colonne de gauche (adresses) ne sert dans MACHDIM qu'à véri- 
fier que l’on ne s'est pas trompé. 


NOTE : Du fait que l'interface imprimante des AMSTRAD ne ‘sort 
que 7 bits au lieu de 8 (une économie à la fabrication), nos deux pro- 
grammes déforment l'image en l'élargissant. C'est gênant pour les cer- 
cles qui deviennent des élipses. Ils fonctionnent indifféremment en 
MODE O, 1 ou 2. Autre défaut : ils ne savent différencier les couleurs : 
c'est TEST =0 ou TEST >O. Avantages : faciles à adjoindre à un pro- 
gramme, peu encombrants en mémoire (181 octets pour HARD9FOO...). 


Si cela ne suffisait pas, il faudrait avoir recours à un logiciel du 
commerce, certes plus ‘’lourd'" à mettre en œuvre, mais nettement plus 
performant, comme par exemple ‘’TASCOPY"" de ‘’Sémaphore Logi- 
ciels'” qui ne présente pas les défauts ci-dessus, et qui convient aussi 
à la DMP 1. 


Les illustrations graphiques du programme ‘’GRAPHMAT"" (chapitre VIII) 
ont été tracées par HARD9FOO, tandis que les histogrammes du cha- 
pitre VI ont été obtenus par ‘’TASCOPY'’ après redéfinition des 
couleurs. 





9FQ@ CDA69F 9F2@ CD9D9F 
9F03 3E1E 9F33 3E4C 
9F@S CD9D9F 9F35 CD9D9F 
9FO8 3E31 9F38 3E7F 
9F@A CD9D9F 9F3A CD9D9F 
9F@D CDBAEE | 9F3D 3E07 
9F1G CDE7BE 9F3F CD9D9F 
9F13 32B49F 9F4? GEO 
9Fié 118080 9F44 ZAR19F 
9F19 Z18F01 9F47 47 
9F1C 22829F 9F48 ES 
9F1F 3E07 9F49 CS 
9F21 32519F 9F4A DS 
9F24 ZEGA 9F4B CDFOBE 
9F26 CD9D9F 9F4E Di 
9F29 3EQD 9F4F C1 
9F2E CD9D9F 9F50 21R49F 
9F2E 3E1E 9F53 BE 
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9F54 
9F55 
9F56 
9F58 
9F59 
9FSE 
9F5C 
9F5D 
9F5F 
9F6? 
9F64 
9F66 
9F67 
9F69 
9F6E 
9F6D 
9F6E 
9F71 

9F72 
9F73 
9F76 
9F77 
9F79 
9F7A 
9F7C 
9F7F 
9F81 


E1 
S7 
2081 
a7 
CHIi 
2E 
2E 
18E9 
ZAE19F 
FEG7 
2807 
AF 
CH11 
CBii 
CEI1 
79 
CD9D9F 
13 
ES 
217F@2 
cr 
EDS? 
E1 
3805 
2AE29F 
18C1 


ir 
PER, 
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9F82? 
9F8Z 
9F84 
9F86 
9F87 
9F8A 
9F8D 
9F8F 
9F9Q 
9F92 
9F93 
9F94 
9F96 
9F98 
9F9E 
9F9D 
9FAQ 
SFAZ 
9FAS 
9FAG 
9FAB 
9FAE 
9FAD 
9FE@ 
9FE1 
9FEZ 
9FES 
GFEA4 


Programme HARD9FOO.BIN 


7€C 

ES 
2824 
2E 
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SEG7 
HD 
2092 
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E4 
208E 
3EG4 
32H19F 
1887 
CD2EBD 
Z8FE 
CD2EHD 
C9 
SEE 
CD9D9F 
3E40 
CD9D9F 
C9 

GG 

au 

aa 
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Chapitre XVII 


LES PROGRAMMES D'ÉDITION 


Il serait dommage d'utiliser votre belle imprimante uniquement pour des 
LIST # 8. Editer des tableaux bien présentés ou des étiquettes adhési- 
ves à la continue (mailing) est assez spectaculaire, mais autant vous 
prévenir tout de suite que la mise au point de ces programmes n'est 
pas chose facile ; du moins lorsque l'on veut sortir un travail impecca- 
ble. Vous en avez eu un avant-goût au chapitre XIV... 


CALIBRAGE DE L'IMPRIMANTE 


Il est obligatoire de bien connaître son imprimante en ce qui concerne 
les diverses tailles de caractères. Le très court programme qui suit va 
nous fournir quatre réglettes graduées, qui vont s'avérer très utiles pour 
déterminer des tabulations horizontales, ainsi que les nombres exacts 
de caractères par ligne. 

Enfin, mais cela ne vous servira normalement qu'une seule fois, vous 
pourrez régler très exactement le positionnement horizontal des tam- 
bours d'entraînement du papier. 


1Q@ ‘ CALIMPF — CALIBRAGE D'IMPRIMANTE 

20 FRINT #8,CHR#i27) ; CHR# (64) 

5@ WIDTH 137 

40 849#="12354567896012:456789012345478901 
2545678960": 49 CAKRACT 

SG ASOF=-AARE+HAABE: Al0GE-A80$+A80+ 

SG A160+-A90F+A90# 

7@ FRINT #9," 1270 CARACTERES EN FICA:" 
89 PRINT #9,A80#; A40#:PRINT #8 

7G FRINT #H8," 120 CARACTERES EN ELITE:" 
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100 FRINT #8,CHR# (27); "M"; 480$; A40#: PRIN 
T #8,CHR# (27); CHR# (64) 

110 PRINT #89," 160 CARACTERES EN CONDEN 
SE: " 

12@ PRINT #8S,CHR#(15) ; A160#: PRINT #8,CHR 
+(27); CHR#(464) 

13@ FRINT #8," 80 CARACTERES EN GROS:" 
140 PRINT #8,CHR# (27) ; "W°3: CHRS& (1) ; A8SGF 
158 PRINT H#B8,CHR# (27) ; CHR (64) 

ÉoU ere FIN'DE. LISTING === 


On commence par vider le buffer (ligne 20) et fixer le WIDTH à 137. 
A noter que le WIDTH va demeurer actif dans l'AMSTRAD, non dans 
l'imprimante. 

Normalement, vous devriez observer par ligne 80 caractères en PICA 
(= normaux), 96 en ELITE, 137 en condensé (attention |! parfois 132...) 
et 40 en GROS. 

Vous remarquerez que l'interligne (le pas vertical) est toujours le même 
= 6 lignes par pouce, même en caractères larges. 

Le pliage le plus courant est 11 pouces (un pouce = 25,4 mm) ; il y a 
donc 11 x 6 — 66 lignes par page. Ou 72 lignes sur le papier 12 pouces 
(= 304,8 mm), plus rare. 

En fin d'édition, ligne 150, on revide le buffer de l'imprimante. Prenez 
toujours cette habitude au début et à la fin ; cela vous évitera bien des 
jurons… 


LA TABULATION HORIZONTALE 


Sur imprimante, le LOCATE et le TAB ont leurs équivalences en codes 
EPSON, mais un conseil d'ami : ne vous en servez pas ! Car il suffit 
d'un rien pour que cela se dérègle, et c'est le désastre qui nourrira la 
corbeil à papier : les ESC ‘'e’’, ESC ‘'f'" (ESC se programme par 
CHRS$(27)), les CHR$(9) et CHR$(11), sont autant de pièges à ..…. loups 
à l'affût du moindre cas particulier pour vous jouer une belle farce ! 

La seule méthode vraiment sûre est de compter les caractères impri- 
més (par LEN) et les lignes. Exemple : pour imprimer A$ en TAB(15), 
on programme 14 blancs et A$ : 


PRINT #8,SPC(14);A$ 


Examinez la ligne 6220 du programme d'édition du chapitre XIV : cha- 
que chaîne est suivie d'un SPC qui la complète jusqu'à sa longueur maxi. 
N'ayez pas peur de programmer des calculs de SPC bien plus com- 
plexes ; dites-vous que le temps de calcul de l'AMSTRAD est infime 
vis-à-vis de celui que mettrait l'imprimante pour éditer une ligne sans 
calculs. 


Pour centrer un titre TIT$ : soit NC le nombre de caractères par ligne. 
Il faut faire précéder TIT$ d’un nombre de blancs égal à la moitié de 
la différence NC-LEN(TITS) 


PRINT #8,SPC{((NC — LEN(TITS/2):TITS 


Même processus pour une marge à gauche, par exemple 10 caractè- 
res. On fixe alors : 


M$ = SPACES$(10) 


NOTE : SPACES$ peut définir une chaîne constituée par des blancs ; 
pas SPC:M$ = SPC(10) donnerait un ‘’Syntax Error’. 


Pour la marge, chaque ligne commencera par : 
PRINT #8,M$:;... etc. 


Les caractères répétés 

Ils se programment par la fonction STRING$. Elle va bien souvent rem- 
placer nos SPACES et SPC. 

Voici un petit ‘‘problème'’ d'aspect délicat et pourtant si facile à 
résoudre. 

Editer une table des matières où nous aurons 25 noms de longueurs 
inégales avec, à droite, le numéro de la page. Il faut que : 

— les noms et les numéros de pages sont en colonnes ; 

— chaque nom est ‘relié’ à sa page par une série de points ; 

— la longueur totale sera de 50 caractères ; 

— l'édition devra être centrée. 


SOLUTION : 

80 — 50 = 30 donc marge M$ = SPACES$(15). Les noms sont en DIM 
N$(25), les pages en DIM P(25). 

On va prévoir trois ‘’cases’” pour les numéros de page, alors que deux 
suffisent, afin que les points ne ‘‘touchent'’ pas les chiffres. Il reste 
donc 50-3=47 cases pour nom +points. D'autre part, on va aussi 
laisser un blanc entre le nom et les points. | 

La longueur de la série de points sera donc égale à 46 —- longueur du 
nom. 

Tout cela se programme alors : 


410 FOR 1=1 TO 25 


420 PRINT # 8,M$;N$(1);"" ‘:STRINGS$(46 — LEN(N$(1)),""."); 
430 PRINT # 8,USING ‘‘# # #'";P(1) 
440 NEXT 


LA TABULATION VERTICALE 


Il est impossible de régler le papier de telle sorte que l'impression 
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démarre exactement sous la pliure du papier (afin de compter 1 à 66). 
Le repère fixe dont vous disposez est situé à combien de lignes au- 
dessus de la tête d'impression ? Pour le savoir, faites une petite réglette 
verticale : 

FOR 1=0 TO 20:PRINT # 8,I:NEXT 


Ensuite, descendez le papier jusqu’à ce que le ‘‘0'’ imprimé soit en face 
de votre repère fixe. Puis tapez : 


PRINT #8," DEPART" 


Vous lirez alors ce fameux nombre de lignes d'amorcage feuille. Sup- 
posons cinq. 


Revenons à notre table des matières : nous voulons en plus un titre 
‘’INDEX'" en gros caractères, trois lignes au-dessus et nous voulons 
que cette page soit aussi centrée verticalement. 


SOLUTION 
1 ligne titre + 2 lignes blanches + 25 lignes de texte = 28 lignes impri- 
mées. La marge en haut est donc de : 


(66-28)/2=-19 


et autant pour le marge en bas. 

Puisque l'on démarre avec 5 lignes déjà avancées, il faudra en sauter 
14. En revanche, à la fin du texte, il faudra sauter 19 +5 = 24 pour que 
la nouvelle pliure se positionne exactement en face de notre repère. 
On pourrait alors reprendre une autre édition sas repositionner le papier 
à la main (saut de page automatique). 


390 FOR 1=1 TO 14:PRINT # 8:NEXT 

400 PRINT # 8,CHR$(14);SPC(17); ''INDEX"":PRINT # 8 
410 

… (déjà écrites) 

440 
450 FOR 1=1 TO 24:PRINT # 8: NEXT 

Au total, cela nous fait SEPT lignes de Basic pour éditer proprement 


cette table des matières, et avec saut de page auto. 
Etait-ce long ? Etait-ce super-compliqué ? 


NOTE : Le CHR$(14) fait imprimer en gros caractères sur une ligne 
seulement. 
ENCADREMENTS DE TABLEAUX 


Par encadrement, nous entendons le tracé de traits horizontaux et ver- 
ticaux. Ce sont ces derniers qui paraissent les moins continus en rai- 


son de l'interligne de l'imprimante. Dans le tableau d'édition de ‘’LOGI- 
CLAS”' (chapitre XIV), le signe ‘‘barre verticale’ nous a fourni des traits 
verticaux en pointillés. C'est acceptable mais on peut faire mieux. 
La méthode consiste à établir une ligne dite de séparation faite de bar- 
res espacées de blancs pour la tabulation. Cette ligne est imprimée en 
demi-interligne afin que les traits verticaux se chevauchent en un trait 
continu. Autrement dit, on commande à l'imprimante 12 lignes par 
pouce au lieu de six, puis on alterne une ligne ‘’normale’”, une ligne 
de ‘’séparation'” : les lignes de caractères sont donc toujours à l'écar- 
tement normal. 
Les traits horizontaux restent à base de tirets (signe moins), mais alors 
se pose le problème des extrémités gauche et droite : si on y met un 
tiret, il Y aura un léger dépassement de part et d'autre du trait vertical. 
Si on y met une barre verticale, il y aura dépassement en haut et en 
bas pour les traits horizontaux délimitant le haut et le bas du tableau. 
Le compromis, c'est le ‘’:"". 
Le programme de démonstration qui suit, ‘’TABLETIQ'' comprend trois 
parties : 
— un “remplissage” (4 fiches...) d'un tableau DIM P$ (lignes 20 à 1407 
que nous éditerons ; 
— l'édition en tableau avec encadrement ; 
— ces mêmes données (noms, adresses bidon) sont imprimées sur des 
étiquettes auto-collantes (mailing). 


Le programme tableau 

(lignes 200 à 380) 

Il commence bien sûr par définir les chaînes horizontales : le sépara- 
teur SEPS$ et le trait continu TC$. Vous remarquerez qu'ils sont para- 
métrés en fonction du nombre et de la longueur des rubriques ; ce sont 
donc des lignes que vous pourrez réutiliser pour vos programmes. 
En ligne 300 commence l'édition : trait horizontal, légendes des rubri- 
ques (indice zéro du DIM P$), trait horizontal, impression du contenu 
de chaque fiche (GOSUB 2000) et le trait horizontal final. 


1@ ‘ TABLETIO — TABLEAUX % ETIQUETTES 

-  M.A / 86 

20 ‘ REMPLISSAGE DIM 

SO DIM F#(200,4) ,LR(4):NF=4 

6@ DATA NOM,FRENOM, ADRESSE , CODFO, VILLE 
7@ DATA MR VERGNE,PAUL,S8 RUE TUPFIN, 2625 
G,CREPOL 

60 DATA MR COISE,SIMON,12 FLACE D'ARMES, 
28420, DOMENE 

9G DATA MLLE GUILLON,SOPHIE,126 BD DUQUE 
SNE ,47320,CLAIRAC 
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190 DATA MME PRASEY,MARTINE,S6 AVENUE F0 
CH,53090,LAVAL 

118 DATA 15,10,20,5,12 

120 FOR N=0 TO NF:FOR R=@ TO 4 

12Q READ PHUN,R):NEXT:NEXT 

14@ FOR 1=0 TO 4:READ LR(I):NEXT : ‘LARGE 
URS RUBRIQUES 

200 ‘ TRAITS HORIZONTAUX 

210 FOR 1-0 TO =:SEP#-SEP#+SPACES (LR(I)) 


+ 5 "iINEXT:SEPFE=": "+SEFH+SPACES (LKR (4)) 
+" 3% 2: ° SEFARATEUR LIGNE 

224 LT=LEN(SEP#) :° LARGEUR TOTALE 

2:20 TC+=":"+STRINGE (LT-2,"-")4+"s" 2: TRAI 
T CONTINU 


3Q@ ‘ EDITION TABLEAU 

210 PRINT #8,CHR# (27) ; CHR£ (64) 

220 PRINT #8,CHR# (27); "A"; CHR#(6):;:° DEM 
I-INTERLIGNE 

220 PRINT #8,TC#:PRINT #8,SEF# 

740 N-0:GOSUE 2000:° LEGENDES 

250 PRINT #8,SEF#:PRINT #8,TC#:PRINT #8, 
SEF# 

36@ FOR N=1 TO NF:GOSUR 2000:PRINT #8,SE 
FH:NEXT 

370 PRINT #8,TC# 

380 PRINT #8,CHR# (27); CHRF(64):FOR 1=1 T 
GO 10:PRINT #B:NEXT 

408 ‘ ETIQUETTES MAILING 


41Q NC=80@ : Nombre Caract. par Ligne 
4268 NE=Z :° Nombre Etiquettes par KRang 
45Q FY=9  :° Fas vertical en Lignes 

440 LE=NC/NE :° Largeur Etiquette en Car 
acteres 


45Q WIDTH NC:FOR N=i TO NF STEF NE 

46@ ‘ LIGNE NOM+FRENONM 

470 FOR F=N TO N+NE-Z 

ABQ AF=PHE(F,@)+" "4+PH(F,1): GOSUR 200@:NE 
XT 

490 Aft=PF(F,@)+" "+P#E(F,1):GOSUE 2500 
SG@ ‘ LIGNE ADRESSE 

SG FOR F=N TO N+NE-27 

S?2A AF=PH(F,2):GOSUE 300G:NEXT 

SIA A$f=PH(F,2):GOSUE 3500 


540 PRINT #8 :° LIGNE DE SEFARATION 
55@ ‘ LIGNE CODE FOSTAL#VILLE 

Sé@ FOR F=N TO N4+NE-2 

570 AF-PF(F,23)+" "4P#(F,4): GOSUE 3000: NE 
XT 

580 AF=PF(F,2)+" "4+P#(F,4): GOSUB 2500 
598 ‘ SAUT VERTICAL D'ETIQUETTES 

600 FOR I=1 TO PV-4:PRINT HS:NEXT 
618 NEXT N 


62@ END 

2008 ‘ LIGNE DU TABLEAU 

2010 PRINT #8,"! ";:FOR R=@ TO 4 

20286 PRINT #8,P#(N,R) : SPC(LR(R)-LEN(PÆ(N 
1R))D3" ! "S:NEXT 


20:00 RETURN 

2000 ‘LIGNE ETIQUETTES GAUCHE+CENTRE 
35018 FRINT #8 ,SPC{{LE-LEN(A#))/2); A; SPC 
{(LE-LEN(A#))/2);: 

SQEG RETURN 

3500 ‘LIGNE ETIQUETTE DROITE 

3510 FRINT #9,SFC((LE-LEN(A#))/2);A# 
252@ RETURN 


ELTE 
Hs 


35 FIN DE LISTING ——--—- 


L'IMPRESSION D'ETIQUETTES A LA CONTINUE 


L'imprimante est maintenant chargée avec des étiquettes en bandes. 
Deux utilisations principales : les étiquettes-adresses (=‘‘mailing'') et 
étiquetage banal de flacons, etc. 

Dans la largeur de papier pour machines amateurs (24 cm), on trouve 
plus facilement du ‘Deux étiquettes'” par rangée (107 x 35 mm) que 
du ‘‘Trois étiquettes'’. Qu'importe ! Notre programme est paramétra- 
ble pour un nombre quelconque d'étiquettes par rangée, quelle que soit 
la largeur du papier ou la taille des caractères ! 

On vous demande simplement d'entrer en lignes 410 à 430 le nombre 
de caractères par ligne, le nombre d'étiquettes par rangée et le pas ver- 
tical entre deux étiquettes exprimé en /ignes. Si vous ne savez pas, 
mesurez-le en millimètres et divisez par 4,23 (1/6 pouce —4,23 mm). 
Le problème de ce type d'édition est assez spécial. Il faut en effet impri- 
mer sur une même ligne la même rubrique de deux ou trois fiches suc- 
cessives, afin qu'une étiquette reçoive le contenu d'une fiche mais en 
plusieurs lignes. 
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Ajoutez à cela que nous exigeons un centrage automatique de chaque 
rubrique sur une étiquette, que deux rubriques peuvent être sur la même 
ligne, exemple code postal et ville, que la dernière fiche peut entamer 
une rangée sans obligation de la terminer, et vous avez une idée de 
la complexité de nos boucles FOR NEXT... 

Et pourtant, ce programme, facilement transformable, est assez court 
(et efficace...). 

Nous avons mis de nombreux REM afin que vous compreniez bien la 
méthode : on prépare la chaîne A$ à imprimer avec ses blancs, pour 
son centrage, devant et derrière. A la suite, la même rubrique mais de 
la fiche suivante. S'il s'agit de la dernière étiquette, c'est uniquement 
chaîne d'espaces + A$, pour le retour ligne... Rubrique suivante, etc. 
Lorsqu'une rangée d'étiquettes est terminée, le papier avance pour pré- 
senter la rangée suivante. 


Quelques détails expliqués : 

— Chaque ligne-rubrique est traitée à part et successivement ; ainsi 
nous avons ligne 1 =nom, espace, prénom ; ligne 2 = adresse ; ligne 
3 =rien ; ligne 4 = code postal, espace, ville. 

— Lignes 490, 530 et 580, il semble que l'on rappelle la même fiche 
F :iln'en est rien car auparavant nous avions un FOR F=N TO … : 
NEXT. Rappelez-vous qu'après un NEXT la variable est égale à la 
valeur limite + 1 (MPSA chapitre XI). 

— Saut d'étiquettes : elles sont au pas de PV lignes, nous avons 
imprimé quatre lignes (ligne 600) ; il nous faut donc avancer de 
PV —- 4 lignes pour commencer une nouvelle rangée d'étiquettes à 
la même hauteur que la première. 

A présent, modifiez la ligne 420 en tapant NE = 2 étiquettes par ran- 

gée et repartez par GOTO 400. Vous constaterez que la disposition deux 

par rangée est tout aussi parfaite. 

Pour vous assurer du côté universel de ce programme, vous allez simuler 

du quatre étiquettes par rang en écriture condensée |! 


405 PRINT #8,CHR$(15); 
410 NC-137 
420 NE -4 


et GOTO 400. Vous vérifiez alors que tous les centrages automatiques 
sont respectés. 
Et en caractères ELITE ? Ça marche aussi : 


405 PRINT # 8,CHRS$S(27);''M''; 
410 NC - 96 


Et idem en gros caractères : 
405 PRINT # 8,CHR$(27);''W'':CHR$(1); 


410 NC-40 
420 NE-2 


NOTE : Dans notre listing nous n'utilisons que les caractères PICA (nor- 
maux). Pour des éditions en autres caractères, n'oubliez surtout pas 
en final de vider le buffer de l'imprimante. 


615 PRINT # 8,CHR$(27);CHR$(64) 


Sur des étiquettes situées sur la droite, vous pouvez parfois observer 
des centrages incorrects. C’est dû aux calculs des SPC qui sont tra- 
duits en nombres entiers, d'où des décalages qui peuvent s'ajouter (ou 
se retrancher) sur une même ligne. Ce sera toujours mieux qu'avec cer- 
tains logiciels ‘professionnels’ pour IBM PC où toutes les rubriques 
partent du bord gauche de l'étiquette... 


î 7 ï 
NOM | FRENOM | ADRESSE } CODFU | VILLE ! 
Lier tte Do NE D eg A Ca en on LA vera ma ose destine 
MR VERGNE | FAUL | S6 RUE TUFIN | 26:50 | CREFOL | 
MK COISE | SIMON j 12 FLACE D'ARMES ÿ 28424 | DOMENE 
MILLE GUILLON | SOFHIE | 136 HD DUOUESHE \ 47:20 | CLAIRAC 
MME FRASEY | MARTINE | 546 AVENUE FOCH | S:Q00 | LAVAL | 
MR VERGNE FAUL MR COISE SIMON MLLE GUILLON SOFHIE 
58 RUE TUFIN 12 FLACE D' ARMES 1:6 HD DUUUESNE 
26:5@ CREFO! 38420 DOMENE 47120 CLAIRAC 


MME FRASEY MARTINE 
Sé6é AVENUE FOCH 


53000 LAVAL 
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Chapitre XVIII 


ÉCONOMIES ET PANNES 
DE MÉMOIRE 


Nous avons préféré attendre la fin de cet ouvrage pour parler de ces 
choses ‘’graves”’. En effet, il est normal que l'utilisation d'un programme 
utilitaire conduise souvent à une importante occupation mémoire. On 
se dit ‘’mon programme fait 10 kilo-octets, mon fichier 12 Ko ; total 
22, je suis tranquille..."". Erreur ! tout se passe bien au début de la 
séance d'exploitation et puis, sans prévenir, plus de curseur le clavier 
ne répond plus ! même pas ESC ! Vous venez de saturer la mémoire 
avec des variables provisoires de travail. Le micro fait lui-même son 
FRE('" ‘’), et cela peut prendre de nombreuses minutes avant qu'il ne 
vous ‘‘’rende la main’, et son curseur. 

N'accusez pas AMSTRAD : ce phénomène est commun à tous les 
micro-ordinateurs. 

Il n'y a malheureusement pas de trucs pour se mettre à l'abri de ce plan- 
tage (temporaire) de mémoire. En revanche, il y a de multiples précau- 
tions pour que cela n'arrive que le plus tard possible. 

Et ne croyez surtout pas que l'achat ‘’d'extensions mémoire’ de 64, 
128, 256 ou 512 kilo-octets va vous tirer d'affaire ! Cela n'a rien à 
voir : le microprocesseur des AMSTRAD est un ‘‘8 bits’’, doncil ne 
peut ADRESSER que de 1 à 65535 octets (= 64 kilo-octets : 1 kilo- 
octet = 1024 octets et non 1000). Les extensions sont des ‘’disques 
RAM'”'. 

Avant de se lancer dans les conseils, il est préférable de décrire som- 
mairement l'organisation de la mémoire des CPC, car c'est assez 
original. 


LA REPARTITION DE LA MEMOIRE 


Les adresses vont de 1 à 65535 (&FFFF en hexa). Parlons en décimal, 
ici c'est plus clair. Le haut de la mémoire, à partir de 49152, c'est l'écran 
vidéo. Ça ne bouge pas. 
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En bas de la mémoire, la place disponible commence à 368 ; c'est à 
partir de 368 que va se charger un programme Basic. C'est une adresse 
fixe elle aussi. 

Le reste est plutôt ‘’mouvant'. 

Revenons vers le haut. Avec un 464 sans DOS et en tapant SYMBOL 
AFTER 255, puis en demandant PRINT HIMEM, on a 44023. C'est 
l'Himalaya des adresses disponibles. 

Un CPC 464 avec DOS, à la mise sous tension, on a HIMEM 42619. 
Si on rogne un peu avec un SYMBOL AFTER 255, on atteint 42739, 
soit 120 octets de plus. Faisons alors PRINT FRE(O) afin de connaître 
la mémoire disponible =42369. La différence de 370, c'est la zone 
super basse, sous le Basic. 

A chaque fois que l'on définit une variable, par exemple 
A$ ='"MACHIN’”", ça va aller se ‘coller au plafond’ sous le HIMEM. 
A présent disons A$ ='’TRUC””, il n'empêche que les octets occupés 
par les caractères du mot ‘’MACHIN'" n'ont pas bougé ; on a mis 
‘’TRUC”” collé après. Donc la zone mémoire des variables gonfle en 
descendant. 

Dans cette zone de variables (en haut, rappelons-le), il y a des varia- 
bles ‘’en action'', d'actualité, et des valeurs ‘’mortes'’ (périmées). 
La zone du bas occupée par le programme Basic ne varie pas, mais il 
va arriver un moment où la zone des variables qui grossit va l’atteindre 
et c'est le blocage. Alors c'est le processus du FRE(‘’ ‘’) qui va ‘vider 
le cimetière’ des valeurs mortes en ne laissant que les valeurs en ser- 
vice. La zone des variables va se rétrécir vers le haut ; oui mais ça peut 
demander plus de cinq minutes ! 


LE CAS DE L'OPENOUT OÙ OPENIN 


Pour exécuter l’une de ces commandes, l'AMSTRAD a besoin de 4 kilo- 
octets. Alors il va descendre le HIMEM d'autant, et tout le paquet de 
variables qu'il y a au dessous, et s'il est déjà gros, cela peut prendre 
des minutes. Après le CLOSEOUT ou CLOSEIN, le HIMEM va repren- 
dre son ancienne valeur, en remontant la zone des variables ; encore 
des minutes. 

Afin d'éviter cette double farce, on abaisse tout de suite le HIMEM envi- 
ron 4000 octets plus bas par la fameuse ligne : 


OPENOUT ‘’BIDON'":MEMORY HIMEM — 1:CLOSEOUT 


Ainsi MEMORY a fixé définitivement le HIMEM a sa valeur mini qu'il 
prendrait. Là, c'est ultra rapide puisqu'il n’y a pas encore de variables 
à ‘'translater'’. 

Faisons alors PRINT HIMEM:38642, soit 38272 octets disponibles. 
Quelle perte ! Mais on ne peut rien y faire. 

Conclusion : le fait d'avoir à utiliser OPENIN et OPENOUT pour charger 
et re-enregistrer un ou des fichiers coûte 4 kilo-octets de réservation 


mémoire. ; 
NOTE : Si vous avez à définir des SYMBOL, faites-le AVANT l'OPE- 


NOUT ‘'BIDON’’, sinon plantage immédiat. 


LE CAS DES PROGRAMMES BINAIRES 


Un programme binaire ne peut se charger dans une zone déjà occur- 
pée, sinon message ‘’Memory Full”. 

Ainsi avant de charger le programme binaire ‘’TOTO'' en &AOOO, il est 
ultra prudent (souvent obligatoire) d'écrire : 


MEMORY &A0O00 — 1:LOAD''TOTO" 


Les CPC 464, 664 et 6128 ont des ‘‘plans mémoire'’ légèrement dif- 
férents. La grande différence est, nous l'avons vu, lorsque l'on équipe 
un 464 de l'interface lecteur de disquettes ; le DOS se prend 2 kilo- 
octets. 

Voilà qui vous explique pourquoi des logiciels en langage machine sur 
cassettes ne peuvent se transférer sur disquette. Pourquoi tel pro- 
gramme sur disquette fonctionne sur 464 et pas sur 6128 ? 

Le programmeur en langage machine a trop tendance à loger ses pro- 
grammes le plus haut possible. La dernière adresse de son programme 
le plus haut n'est plus bien loin de la ‘’frontière'”. Or, si le fabricant 
AMSTRAD sort un nouveau modèle avec des ‘trucs’ en plus qui 
abaissent de ce fait le plafond... 

Vous devinez la suite. Si vous avez conservé un enregistrement du ‘‘pro- 
gramme source”, il vous sera facile de seulement modifier le ORG, et 
de ré-assembler ; sinon il faudra désassembler le ‘’programme objet" 
et retaper le ‘source’. 

Bon courage ! Et tout cela parfois pour une trentaine d'octets trop haut... 
Un exemple de précaution pour routines courtes. Le programme binaire 
de Hard-copie du chapitre XVI a été tout de suite assemblé et sauve- 
gardé en deux versions d'adresse départ : &9F00 et &A444. 


EVITONS LES GASPILLAGES PAR RESERVATIONS INUTILES 


Rappelons une fois de plus qu'il faut définir le maximum de variables 

numériques comme étant des nombres entiers. Par exemple DEFINT 

1— N ou DEFINT A-E,I-N ou totalement DEFINT A —Z. Deux avanta- 

ges à cela : 5 octets au lieu de 2 par nombre défini. Des boucles FOR 

NEXT (et tris) deux fois plus rapides ! 

Les inconvénients des entiers sont de deux sortes : pas de décimales 

et limités entre +32767. Plusieurs parades à cela : 

— Un prix PR exige 2 décimales. On le multiplie par cent pour le stoc- 
ker en entier. Rien n'empêche alors d'afficher ou d'imprimer PR/100, 
ou en final de définir PR! =PR/100. 

— On applique la technique inverse (diviser par 10, 100, 1000...) pour 
des valeurs supérieures à 32000. 

— Une variable est toujours positive, mais peut aller de O à 65000 : 
on ‘’récupère’’ la zone négative des entiers N% =N — 37000 ; que 
l'on restituera en final, mais tous les N% auront été mémorisés sur 
deux octets. 
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Un autre gaspillage classique concerne les tableaux DIM surdimension- 
nés : trop de lignes prévues. On n'a pas utilisé la colonne et la ligne zéro. 
Exemple : le simple fait de déclarer (sans remplir) DIM A$(300,8) 
coûte. 8148 octets ! Et maintenant DIM N(300,8) avec des nombres 
réels : 13566 octets. Avec des nombres entiers DIM N%(300,8), la 
réservation est moins gourmande, 5439 octets. 

C'était prévisible : 301 x 9 = 2709 ‘‘’cases’’. Multiplié par deux octets 
— 5418, et par cinq octets : 13546. Le DIM A$(300,8) a réservé trois 
octets (soit trois caractères) par case. Lui va grossir en occupation 
mémoire au fur et à mesure de son remplissage, alors que les DIM numé- 
riques resteront fixes. 

Dans un ‘'grand'’ DIM numérique, la gaffe est de définir une colonne 
comme étant le résultat d’un calcul simple entre deux autres. Exem- 
ple : prix HT et % TVA suffisent, francs TVA et prix TTC sont deux 
colonnes de DIM dont on peut se dispenser. On les calculera au fur et 
à mesure des besoins. Sur papier, des colonnes étaient indispensables, 
pas en informatique. 

Evitez de même les variables intermédiaires dans un calcul, un traite- 
ment de chaîne. Certes le listing est plus clair, l'écriture Basic est plus 
simple car elle dispense de rabâcher des longs tronçons pleins de paren- 
thèses ; mais si jamais cela se trouve au cœur de plusieurs boucles FOR 
NEXT imbriquées, pensez au cimetière des variables... 


La concaténation 
C'est un gouffre d'octets. Exemple : nous voulons créer une chaîne 
C$ qui sera la suite des 58 caractères entre À et z. 


FOR 1=65 TO 122:C$ =C$ + CHRS(I:NEXT 


Cett ligne banale a consommé, gaspillé 1737 octets ! Pourquoi ? Parce 
qu'au cimetière, nous avons empilé pour C$ À, AB, ABC, ABCDE, etc., 
d'où ce gâchis que nous a montré un PRINT FRE(O) avant et un autre 
après cette ligne. 


L'EXPLOITATION PRUDENTE 


Prenons le cas d'un gestionnaire de fichiers avec en RAM un fichier 
de 10 à 20 kilo-octets. Tant que l'on fait de la saisie ou de la recher- 
che, le risque du blocage mémoire est raisonnable. Si cela arrivait (plus 
de curseur), ne touchez surtout pas au clavier, tout est néanmoins 
mémorisé dans le buffer clavier et serait exécuté en fin de ‘vidange’. 
En revanche, le risque est énorme avec les phases d'enregistrement 
ou sauvegarde et les tris. En effet, ces quelques lignes Basic ne sont 
que des FOR NEXT imbriqués, et au milieu plusieurs noms de variables 
qui vont changer de valeur des milliers de fois... 
Comment ‘’faire le ménage’’ dans le cimetière ? Deux méthodes : 
— Des PRINT FRE{(’ ’’) ou XXX =FRE{('’ ‘’) assez fréquents, c'est-à- 
dire sans attendre l'envahissement, car l'attente serait très longue. 
L'usage d'un EVERY 100 GOSUB 4000 et en 4000 XXX = FRE(‘* 


"RETURN serait désastreux dans notre progamme LOGICLAS, car 
dès le premier chargement de fichier vous resteriez de longues minu- 
tes à attendre au lieu de quelques secondes. 
° Le RUN remet, lui, immédiatement la zone des variables à zéro. Oui, 
mais on perd tout ! 
De deux maux choisissons le moindre : 
Imaginez qu'après avoir chargé votre fichier, vous vouliez en faire trois 
versions triées différemment et les enregistrer. Si votre fichier ne fait 
que 5000 octets, pas de risques. S'il fait plus de 100 fiches, vous n'avez 
aucune chance de finir votre travail sans le fameux blocage de dix 
minutes. 
Voici la méthode barbare mais rapide et sûre (pour lecteur de 
disquettes) : 
— charger le fichier ‘‘brut'", 
b — faire le trin° 1, 
c — l'enregistrer sur disquette, 
d — quitter et taper RUN, 
e 
f 


o 


— charger le fichier brut, 
— faire le tri n° 2, 
etc. 


Je dois vous surprendre, mais votre travail sera fait en moins de cinq 
minutes au lieu de près d’un quart d'heure... 


CONCLUSION 


Du fait que l'AMSTRAD est doté d’un microprocesseur 8 bits, le célè- 
bre Z80, il ne peut pas travailler correctement sur des fichiers qui appro- 
chent les 20 kilo-octets. La machine n'est plus appropriée, autant 
essayer de faire un déménagement avec une voiture Break... S'il vous 
est impossible de scinder votre énorme fichier en plusieurs tailles rai- 
sonnables, la seule solution est de revendre votre 8 bits pour un 16 
bits qui, cas des IBM PC et de ses ‘compatibles’, n'ira pas plus vite 
mais peut adresser jusqu'à 640 kilo-octets... Autrement dit, 
l'AMSTRAD a tous les outils pour faire du bon professionnel, mais la 
taille de sa mémoire le limite à l'artisanat, en lui interdisant les ‘‘’grands 
chantiers'’. 

Il fallait que cette évidence soit dite. 
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Votre AMSTRAD saiîit aussi faire autre chose que de ‘’lasé- 
riser’’ des extra-terrestres ; il sait se rendre utile pour 
résoudre vos petits problèmes, ou écourter de façon spec- 
tactulaire des besognes courantes.et fastidieuses. Reste la 
question du logiciel : ceux du commerce sont souvent très 
difficiles à adapter à votre besoin précis, voire inexistants. 
Il faut le programmer soi-même. 


Ce livre veut être un utilitaire pour faire des utilitaires ; 
il contient davantage de méthodes, d'astuces, de mises en 
garde, que de logiciels genre ‘’PRET-A-LOADER’’. En revan- 
che, beaucoup de routines courtes et passe-partout 
d'usage fréquent et des programmes plus longs mais 
conçus pour être modifiés en fonction des besoins. 

A l'exception d’un seul, tous nos programmes sont en 
Basic, donc à la portée de tous. 
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